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With Bravado; your decision to get into 
multimedia is really quite simple. 



If you’re thinking about developing multimedia applications, Truevision Bravado 
Multimedia Engines make a green light even greener. 


Why are the developers crossing the street? 


■ Controllable video-in-a-window 

■ Stereo or monaural audio 


■ Microsoft® Windows'" 3.x drivers, with 
Multimedia Extensions 

■ MS-DOS* drivers 


■ 8- or 16-bit VGA on-board 

■ Comprehensive Developer Toolkit 

■ Powerful expansion capabilities 

■ Outstanding technical support 
Multimedia is where developers and integrators are headed, and the pace is 

quickening. Truevision Bravado gets you up to speed with extensive functions and full 
support. Traffic is starting to get heavy, so get going with Bravado. 

For more information on the Truevisionary Developer Program, 

CALL 1 -800-344-TRUE and ask for Operator 5. 


When it comes to video, it comes from Truevision!" 
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C CODE FOR THE PC 

source code, of course 


Embedded DOS (full-features, real-time, multitasking, 3-31 -compatible DOS for embedded system and self-bootable installations).$375 

Style (a C+ + class library to build, maintain and traverse arbitrary, non-taxonomic links between C+ + objects).$300 

Spell Time (spelling checker for incorporation into text products; no royalty; large dictionary; small and fast).$300 

ZllP Image Processor & Victor Image Library Version 22 (brightness, contrast, merge images, TIFF/GIF/PCX/bin, HP ScanJet support) . . $290 

INGRAF (graphics for scientists & engineers, all sorts of graphs & plots; specify Microsoft or Borland).$275 

The Snooper (Ethernet protocol analyzer for Novell NetAtere and LAN Manager Networks; capture packets; real-time display).$275 

Tlirbo'HsX (Release 3.0; HP, PS, dot drivers; CM fonts; LaTj^C; MetaFont).$250 

Rogue Vihve tools.h++ or math.h+4- Class Library (extensive docs).each $240 

InGontrol lbo!bax(forms package for Windows; validation functions, date/time, regular expression formatted text control).$210 

PxSQL (SQL for Borland's Paradox Engine; ANSI X3.135-1989 SQL-DML standard; network server not required).$180 

C-pslib (PostScript generation library for C programs; includes complete graphics, font, rotation & paragraph support).$170 

C/C+ + Libraries by Code Farms (persistent C structures, ER models, dynamic arrays, disk pager, database functions, much more).$170 

Viewpoint (C++ graphics library; 32-bit color, pattern fill, scroll & bitmap, coordinate tranformations).$170 

XASM (cross assemblers) .$150 

Minix Operating System (Version 1-5; Unix-like operating system, includes manual; specify 5.25” or 3.5" diskettes).$150 

ViewTHeve (relational view of Novell Btrieve databases; includes EZTHeve).$150 

Deiorie GCC for MS-DOS (Version 1.05; includes C++, assembler, DOS extender, 387 emulation; complete source code and makefiles) . . $150 

Booter Tbolkit (floppy disk bootstrap routines, DOS file system, light-weight multitasking, windows, fast memory management) .$120 

Dr. MD (runtime memory analyzer & debugger, find many memory corruption errors; examine memory usage).$110 

386BSD Version 0.1 & LINUX Version 0.96(two Unix dones for Intel 386).$100 

PC/IP (CMU/MIT TCP/IP for PCs; Crynwr drivers, NFS server, Bdale mailer, PCRoute/PCBridge, NDIS/ODI drivers, Beholder, more) . . . $100 

Demacs (complete GNU Emacs for DOS; needs djgcc to build; based on 18.55).$100 

Script Interpreter (a command script interpreter for DOS-based systems; C-like script language; lots of features).$90 

I brow (programmer’s Windows-based editor; large files, help, undo/redo, drag-n-drop, function & type tags).$85 

HorC++ (C+ + Class Library for Borland’s Paradox Engine).$80 

VMEM (virtual memory manager by Blake McBride, Version 3.6, LRU pager, dynamic swap file, image save/restore).$80 

CPPCOMM (Version 20; C++class library forserial communications).$75 

TbeeDraw (PostScript display of labeled hierarchical trees; DOS & Windows screen display induded; Moen algorithm).$75 

FlexList (doubly-linked lists of arbitrary data with multiple access methods; specify Cor C++).$65 

LDB (Loose Data Binder, persistent data objects for C++; handles pointers between objects) .$60 

Kier DateLib (all kinds of date manipulation; translation, validation, formatting, & arithmetic).$60 

Coder’s Prolog (Version 3.0; inference engine for use with C programs).$60 

PCC1S (Purdue Compiler Construction Tool Set; ported to Microsoft C; like YACC and LEX together with lots of additional features) . . . $60 

MEM-WING (global memory manager for Windows, supports standard C memory allocation calls to "wing” your old C code into Windows) . $55 

BigFloat (arbitrary predsion floating point arithmetic and functions; includes BCD conversion).$50 

CALC (ASCII algebraic expression evaluator, unlimited parenthesis nesting, symbols, 32 built-in functions, easily extended).$50 

Backup & Restore Utility by Blake McBride (multiple volumes, file compression & encryption).$50 

Floppy TAR (TAR backup and restore on MS-DOS devices; dired access to non-standard devices) .$50 

SuperGrep (exceptionally fast, revolutionary text searching algorithm; also searches sub-directories).$50 

OBJASM (convert .obj files to asm files; output is MASM compatible).$50 

CLIPS Version 5.1 (rule-based expert system generator; advanced manuals available at additional cost).$50 

NIH Class Library & Book (basic C+ + classes & Data Abstraction and Object-Oriented Programming m C+ + in softback by Keith Gorien) $50 

Editor Pack (19 public domain editors; including microEmacs 3.11, Stevie, Elvis, Moke, mg2a, DTE, Jove, Origami, & GRIEF) .$50 

MicroC C Compiler (retargetable C compiler/optimizer, lots of docs, very portable, 8086 tables included; tables for 7 extra epu’s $50) .... $50 

TOUR (beautiful traveling salesman problem solver, finds minimum length paths quickly, includes graphics & plotting programs) .$40 

Charting Routines (Version 1.0; produce many kinds of charts from ASCII data files; rasterized high quality printing feature) .$40 

DES Encryption & Decryption (2500 bits/second on 4.77 MHz PC for on-the-fly encryption at 2400 baud; domestic distribution only) .... $40 

COPS (poor man’s C++; C macro package which implements C++ in C) .$35 

RXC & EGREP Version 20 (Regular Expression Compiler and Pattern Matching; finite state machine from regular expression).$35 

Database Pack (9 databases - simple to complex: isam, bplus, AVL, SDB, ID, gdbm. Requiem, Ingres89, Postgres).$35 

Bison & BYACC (YACC workalike parser generators; documentation; includes C and C++ grammars).$35 

Spell Pack (6 spelling programs, a hyphenator, 2 utility packs and a 60K word list: Ispell, Microsp, Sp, Cspella, Spell, Dawg, Soundex) .... $30 

Alloc-GC (a garbage-collecting memory allocation library).$30 

REGX Plus (Version 20, search and replace string manipulation routines based on regular expressions).$30 

GNU Awk & Diff for PC (both programs in one package).$30 

Big Number Pack (7 arbitrary precision arithmetic packages in C, one in Fortran but free Fortran-to-C converter is included) .$30 

Crunch Pack (30 file compression & expansion programs; now includes portable ZIP).$30 

UUPC Pack (UUCP for the PQ UUPC Version 1.1 IQ by Wonderworks and smail/PC Version 25 by Stephen G Trier).$25 

PHIL for MS-DOS (Version 4.019; C, sed, awk, and shell all rolled into one language; indudes hardcopy docs).$25 

Id Version 6.1 (Tbol Command Language; add shell programming capability to any command line; elegant command line language) .... $25 

FLEX (fast lexical analyzer generator; new, improved LEX; BSD Version 23.6 with docs).$25 

GNU RCS (FSFs version of the Revision Control System; like Unix’s SCCS only better, keeps track of software development).$20 

PCAL Personal Calendar (generates PostScript calendar for any month or year, lots of options, personalization file for your dates & schedule) $20 

Publisher’s Interchange Language (PILTbol Kit, Version 5.0, API 20 by Quark).$20 

NetCDF (Network Common Data Form; general-purpose data exchange for scientific data; many tools and programs available).$20 

Data 

Moby Thesaurus (25K root words, 1.2M synonyms).$350 

Moby Part-of-Speech (200,000 words and phrases described by prioritized part(s)-of-speech).$120 

Moby Words (500,000 words & phrases, 9,000 stars, 15,000 names).$80 

Moby Shakespeare (plays, sonnets, etc. ... every last word).$60 

Dictionary Wind List (234,932 words in alphabetical order).$60 

Roget’s 1911 Thesaurus.$40 

U. S. Cities (names & longitude/latitude of 32,000 U.S. cities and 6,000 state boundary points).$35 

CIA World Bank II Database (13MB of maps, 5.7M vectors; coastlines, rivets, political boundaries; Africa, Asia, Europe, N. & S. America) $35 

The World Digitized (100,000 longitude/latitude of world country boundaries).$30 

Lots ’O Words (160,086 German, 178,430 Dutch, 61,843 Norwegian, 60,453 Italian, 138,257 French, 53,142 English).$30 

Tbit Pack (1990 CIA World Fact Book, Hacker’s Jargon File, Acronyma, Koran, Mormon Scriptures, One Liners, Mnemonics, more) .... $25 

CD-ROMs 

FontMaster Library (soft fonts for HP and HP compatible laser printers, 36 different type faces; 5,200 bit mapped fonts; 300MB).$70 

InfoMagic (XI1R5, Thhoe 4.3 BSD, complete GNU, ISODE, KA9Q & NCSA TCP/IP, all TCP/IP docs, DOS tools; 600MB).$70 

Prime nme Freeware (over 1 gigabyte of Unix C code).$60 

American Business Phone Book (telephone numbers of 9.2 million businesses by type, geography, and name).$50 

V&lnut Creek Desktop Library (over 1,000 texts: Aesop, Shakespeare, Dickens, Dcyle, Melville, dictionaries, word lists, thesaruses, etc.) . . $35 

Wblnut Creek XUR5 and GNU (X11R5 with contributed and comp.sourcesjt, 120 GNU programs, SPARC executables).$35 

Atalnut Creek Usenet and Simtel Unix-C (600MB).$35 

Wilnut Creek Simtel 20 MSDOS Archive (C source code but lots of other stuff too).$20 

The Austin Code Works Voice: (512) 258-0785 

11100 Leafwood Lane much more ... ask for catalog FAX: (512) 258-13)2 

Austin, Texas 78750-3587 USA E-mail: info@acw.com 

Free surface shipping for cash in advance For delivery in Texas add 7% MasterCard/VISA 
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A TRUE SPREADSHEET 
CONTROL! 


(THIS IS NOT A GRID!) 


Drover’s Professional 
ToolBox for Windows 

With 23 custom controls, including Far- 
Point’s industry unique full-featured 
spreadsheet control (not a grid!), For¬ 
matted Edit Controls, Tool Bar and 
Status Bar, ability to add 3D effects to 
dialog boxes, View Pictures with anima¬ 
tion, and Enhanced Listbox this package 
is a developer’s dream come true. 

Over 300functions are built in, including 
DOS System functions, Date/Time sup¬ 
port, String functions, and Enhanced file 
support. 

Drover’s Professional Toolbox supports 
MSC 7.0, Borland C + +, Turbo Pascal, 
Actor, WindowsMaker Pro, Borland 
Resource Workshop and Dialog Editor. 

Drover’s Professional Toolbox for Win- 
dows is only $345.00. There are no 
royalties and of course you receive our 
30 day no-hassle, money-back guar¬ 
antee. 


DON'T CHEAT YOUR END 
USER WITH A GRID WHEN 
YOU COULD BE GIVING THEM 
A TRUE SPREADSHEET 
CONTROL. 

FarPoint’s Spreadsheet control is unparalleled 
by any other package in its features, flexibility 
and power. The spreadsheet may be optionally 
locked so the user cannot make any changes. 
The width and height of columns and rows may 
be changed by the programmer or by the user. 
The font, color, and data type may be changed 
for any row, column or cell. Cells can have the 
following data types: edit, date, time, integer, 
float, static, formatted pic, combo box, button, 
and picture. Formulas can be added to any cell. 
Editing is performed within the cell. 

CALL OR FAX FARPOINT TODAY: 

( 614 ) 7654333 


Visual Architect ™ 

for Visual Basic 

“Visual Architect™ is a product 
that no serious Visual Basic devel¬ 
oper can do without.” 

Along with the industry’s 
most powerful and flexible 
true Spreadsheet custom 
control (not a grid!), Visual 
Architect™ features Date 
with Calendar, Time, Float, 

Integer, Formatted PIC and 
View Text controls. 
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The Visual Architect™ 
manual is professionally writ¬ 
ten and contains extensive 
documentation. 

Visual Architect™ is only $245.00. 
There are no royalities and of course you 
receive our 30 day, no-hassle, money- 
back guarantee. 
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From 

the Editor 


1 used to wonder how "PC technicians," people who install software and hardware 
products and figure out why they aren’t working, made a living. After all, how hard 
is it to run an install program or slap a card into a PC? These days, I no longer 
wonder what the fuss is about -PC complexity is eating me up. 

When I first tried to install Microsoft C/C++ v7.0, it locked up my machine hard —I 
had to turn the power off to reboot I tinkered and got it installed eventually. What 
was the problem? I don’t know and I don't care because I've figured out that with 
expanded memory managers, extended memory managers, hard disk caches, BIOS’s, 
TSRs, UMBs, hard disk adapters, network cards, video BIOS's, and many other sources 
of potential incompatibility, I simply can no longer afford to understand everything 
that can go wrong. 

My latest problem is TDW, the debugger for Borland’s Turbo Pascal for Windows. 
Every so often, I start it up and it displays garbage instead of the normal, character¬ 
mode screen. The only fix I’ve found is to reinstall the product, which is good for 
another few weeks. Because the usual problem in this area is that you did not 
install the correct video driver, whenever I ask Borland technical support for help, 
they give me the answer to that problem, since my problem doesn’t make any 
sense (unless you believe, as I do, in software rot). Who knows if the problem is 
TDW, my hardware, other software, or cosmic rays? I can sympathize with both 
Borland and Microsoft technical support though — PC complexity is eating them up 
too. 

On a different tangent, how would you like to make an easy $50 and become 
famous all at the same time? The secret is that we receive relatively few program¬ 
ming tips related to Windows, even though it is extremely fertile ground. To take a 
shot at a small amount of fame and fortune, email your tip to Leor Zolman 
(leor@bdsoft.com) or mail it to him c/o this magazine. Also, don’t forget that Paul 
Bonneau is always looking for more windows programming questions. We don’t pay 
for those, but having the answer to a tough Windows question is like cash in the 
bank. I know I would put cash in the bank of anyone who could solve my TDW 
problem. 

Ron Burk 

Editor 

CIS: 70302,2566 ; BIX: rlburk; Internet: ronb@rdpub.com (“... !uunet!rdpub!ronb") 


Correction 


The phone number for The Programmer’s Room BBS included in Tom 
Haapanen's "Porting from Win16 to Win32” (October, p. 20) was incorrect — the 
number is (317) 742-5533. Also, the MicroEMACS for Windows file has been 
removed from the WINADV forum on CompuServe; a new version (1.1) is to be 
posted in mid-October. 
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Number Crunching 



Paul Bonneau is Director of Software Development for Hyper- 
cube, Inc, # 7-419 Phillip St, Waterloo, Ontario, Canada, N2L 
3X2. His current project is HyperChem, a molecular modelling 
software package for Windows. Paul has been developing Win¬ 
dows applications for 5 years. Much of his expertise was 
gained at Microsoft, where he implemented a library module 
used by all of Microsoft’s major Windows applications. 


Paul Bonneau 


Despite the richness and diversity of the Windows API, there is no support for 
three-dimensional graphics. At the Win32 Developer's conference in San Francisco 
this past July, Microsoft stated that Silicon Graphics' Graphics Language (known 
among SGI aficionados as “the GL”) would be available in the second release of 
Windows NT. Until that version is available, programmers must implement their own 
3-D graphics primitives. This article presents a simple implementation for rendering 
and manipulating 3-D Bezier curves with today’s two-dimensional API. Many of the 
concepts covered are applicable to the rendering of 3-D objects in general. 


What Are Bezier Curves? 

Bezier curves are one example of parametric cubic curves. These curves are 
described with a set of cubic (order 3) polynomials over the single parameter, t. One 
polynomial is used for each dimension. So for 3-D curves, three polynomials are 
required. Polynomial curves can be used to smoothly connect an arbitrary number of 
points in space. A new curve is computed for each pair of points, and is rendered by 
sampling positions along the curve to define a series of line segments. As the num¬ 
ber of line segments increases, so does the quality of the rendering. Cubic polyno¬ 
mials are the least order polynomial such that adjacent curves can be made smooth 
at their points of connection. In this context, smoothness 
means continuity of the curves and their first order derivatives 
(tangents) at the junction. One form, the bicubic spline, or B 
spline, also possesses continuous second derivatives at the 
junction. 


Why Bezier Curves? 

My main reason for presenting the Bezier form instead of 
one of the other parametric cubic forms is that Bezier curves 
(albeit only two-dimensional) are provided in the Win32 API. It 
would seem likely that the present PolyBezierf) and Poly- 
BezierTof) APIs will be generalized to three dimensions in the 
next release of NT, when GL is merged with GDI. Gaining ex¬ 
perience with Beziers now should prove advantageous as the 
Windows API continues to grow. 

A second reason for selecting Bezier curves is that they 
frequently show up in the literature. For example, an excellent 
article by Philip J. Schneider entitled “An Algorithm for Auto¬ 
matically Fitting Digitized Curves” in the anthology Graphics 
Gems (page 612) uses Bezier curves as the basis of a routine 
that could be used to convert a bitmap font to an outline font 


3-D Bezier Curves 
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• Kcal tV protected mode 16-hit support 

• 32-bit protected mode support 

• W ide range of graphic adapter support 

• Virtual screens 

• Multiple simultaneous graphics adapters 

• BGI interlace available 

$250, No Royalties 







X-32VM 32-bit DOS Extender 

• l p to 3.5 gigabytes of x irtual memory 

• l lira compact, self-contained executables 

• bully compatible with Zortech's l)OS\ 

• Support for Watcom C9.0/3H6 

• Masb (irapbics and l ; lasb\ic\x compatible 

$250, No Ro\ allies 

char " name list) 

\ 

V • new hug[n|; 






FlashViev 


• Source level debugger for C 4 " 4 , C and 
assembler programs. 

• Easy to use expansion of classes, 
structures, pointers, arrays, etc. 

• Powerful run-time memory protection 
detects pointer bugs 

• Full nested call tracebaek display with 
automatics and parameters 

• Unlimited number of break and trace points 

• History buffer for recording up to 
32,000 source lines and variables 

• Program execution time recording for 
timing analyses 

• Dual monitor debugging 


j FlashTek is proud to offer former Zortech i 
: products, by the original authors, now with 
! support for other compilers. New features.! 
fantastic support, no royalties, and great 

! nru»p« 

ORDERS 800-397-7310 


FlashTek. Inc. 

| 121 Sweet Ave. 

Moscow, Idaho S3S43 
I Info: 208-882-6893 

Email: flash@proto.eom 
FAX: 208-882-7275 


Murray Communications 
53 Harrowbv Lane 
Grantham 
Lines 

England NG31 9117. 
Voice & FAX 
44-476-74108 


; Borland, BGI. Watcom and Zortech are trademarks of 
i their respective companies. 
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The Bezier Form 

A single Bezier is specified by four 
control points. Two of these are the 
desired end points; the other two inte¬ 


rior points specify the curve's shape. 
The control points collectively define a 
convex hull. Figure 1 shows a Bezier 
curve and its relationship to the four con¬ 
trol points. When you create a composite 
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curve from a series of Bezier curves, the 
Bezier curves are joined such that the 
tangent vectors at the junctions are 
equal. Figure 2 depicts a pair of Bezier 
curves and the seven points that define 
them (point 4 is the junction of the two 
curves). Since the interior control points 
have been computed to make the junc¬ 
tion smooth, the tangents at the junc¬ 
tion have the same slope, making the 
points P3, P4, and P5 collinear. 

The parametric equation of a Bezier 
curve is given by the polynomial: 

m - (1 -t) 3 ^ + 3t(t-l fP 2 


T - [t 3 t 2 t 1] 



Windows Help Files 
So easy - it’s Magic! 



+ 3t 2 (i-ty>3 + t 3 p t 

where P(t) is the point fx(t) y(t) z(t)J for a 
3-D curve, and the Pj are the 3-D coor¬ 
dinates of the four points. As you can 
see, this is easily generalized to any 
dimension. The above equation is fre¬ 
quently expressed in matrix form as: 

P(t)=TMG 

where 


Linear Algebra 101 

Matrix manipulation is a common 
operation in the realm of 3-D graphics. 
Linear transformations in 3-space such 
as scaling and rotation can be con¬ 
veniently represented by 3 x 3 
matrices. 

The scaling of a 3-D vector, V = [x y 
z], by the factors (a, b, c) along each of 
the coordinate axes can be expressed 
as: 


The Windows Help Magician saves you 
countless hours creating custom help files 
for Microsof t Windows applications. 

Forget about the cumbersome footnote 
way of creating help with Microsoft 
Word. Use this tool to create help files in 
a single, integrated environment. No 
need to switch out to DOS to run the Help 
Compiler. With the Magician you’ll be 
able to write the RTF file 
instantaneously. And you can even 
import RTF files from manuals written in 
Microsoft Word. 

Highlights: 

• Fully functional familiar editor with 
all the amenities 

• Create jumps and popups simply by 
marking a word or a phrase 

• Include bitmaps and hot spots 

• Create browse sequences easily 

• Use different fonts and colors for 
help type 

• Import and Export RTF and ASCII 
files 

• Very FAST in generating RTF files! 

• Test your help file instantaneously 
while inside the Help Magician 
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Listing 1 matrix.h - Interface to matrix 
manipulation routines 


/////////////////////////////////////////////////////// 
// Types. // 

/////////////////////////////////////////////////////// 
typedef float PT4[4]; // Homogenous point, 

typedef float FAR LPT4[4]; // Far pointer to above, 

typedef PT4 XFM[4]; // Transformation matrix. 


/////////////////////////////////////////////////////// 
// Prototypes. // 

/////////////////////////////////////////////////////// 
VOID IdentityXfm(XFM); 

VOID InvertTransformXfmXfm(XFM, XFM); 

VOID MultXfmXfmXfm(XFM, XFM, XFM); 

VOID MultPt4Pt4Xfm(LPT4, LPT4, XFM); 

/* End of File */ 


S(X, y, z) = (x\ y\ z') = (ox, by, cz) 
In matrix form this becomes: 

V = kS 
where 

V = [x' y' z '] 


and 


Your future^ 
These Windows.^ 


Zvo 



static MOL translate aid 
static BOOL ••areh( void ), 

static long do_trarsalatlan( LPSTR pattern. LPtTR repia 
static I eng aerap.isparat 1 a*H BOOL cutting ). 



Today, more developers and programming groups 
are turning to Codewright as their vehicle to the 
future -- a future developing in Microsoft Windows. 
You can configure and extend Codewright to work 
the way you work, the way your group works. At 
the same time, Codewright is truly at home in the 
Windows environment. 

Codewright has features to make 
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Edit, Selective Display, Multi-file 
Search and Replace, Difference 
Analysis, Customizable Tool Button 
3ar and Tool Box, File Merging and 
ThromaCoding. We’ve included the 
eatures you have come to rely on, 
oo: Unlimited Undo/Redo, Column 
Marking, Language Templates, 

Compile and Find Errors. And 
Codewright has unsurpassed support 
or Windows v3.1. 

'ou configure Codewright to your 
•references through its extensive 
ystem of dialogs, or by editing its 
nitialization file. 
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The professional Programmer’s 
Editor for Microsoft Windows. 


You extend Codewright through Dynamic Link 
Libraries (DLLs). Forget those half-hearted C 
macro languages. We provide the C source code 
to our DLLs for you to modify as you please. Or 
you can use any of Codewright’s 600 functions 
in your own DLL that you create with any 
Windows compatible language. 

To see your future in Windows, you 
don’t need a crystal ball. Just give 
us a call. You’ll be talking to 
people responsible for highly 
acclaimed software, documentation, 
and support. We’ll arrange for you 
to try Codewright without risk, and 
we’ll tell you about a support policy 
and multi-user pricing designed for 
your future. 

Premia and Codewright are trademarks ot Premia Corporation. 

muiF 
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License: y^Hrw/ License: 
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S = 


so that 


VS = [x y z] 


0 0 
b 0 
0 c 


= [ox by cz ] = [x' y' x'] - V 

The rotation of a vector (x, y, z) through 
the angle 0 about the x axis is given 
by: 

* x (*. y • z) = (x', y', z') = 

(x, ycos(6) - zsin(0), ysin(0) + zcos(0)) 


In matrix form this becomes: 

V = VR 

X 

where 

V = [x' y' z‘] 
and 


so that 


0 0 

cos(0) sin(0) 

-sin(0) cos(0 


VR x = [x y z] 


1 0 0 

0 cos(0) sin(0) 

0 -sin(0) cos(0) 

[x ycos(0) - zsin(0) ysin(0) + zcos(0)] 
- [x' y' z'] = V 
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Similarly, the rotation through the angle 0 about the y axis is 
given by the matrix: 


0 -sin(0) 

1 0 
sin(0) 0 cos(0) 


cos(0) 

0 


and rotation through 0 about the z axis is given by: 


cos(0) sin(0) 0 

-sin(0) cos(0) 0 

0 0 1 


Since these matrices all represent linear transformations, an 
arbitrary composition of any number of these transformations 
an be represented by the resultant matrix product So, for 
example, the result of a saling transformation S and a rotation 


Listing 2 matrix.c — Matrix manipulation routines 


linclude <windows.h> 
linclude <memory.h> 
linclude "matrix.h" 


XFM 


xfmldentity 


// Identity matrix. 


}; 


{ l.f, O.f, O.f, O.f }, 
{ O.f, l.f, O.f, O.f }, 
{ O.f, O.f, l.f, O.f }, 
{ O.f, O.f, O.f, l.f } 


VOID 

MultXfmXfmXfm(XFM xfmResult, XFM xfmSrcl, XFM xfmSrc2) 
/////////////////////////////////////////////////////// 
// -- Multiply two transformation matrices. // 

// — xfmResult » xfmSrcl * xfmSrc2 // 

// — Uses a temporary result so that dest can // 

// appear as a source. // 

// — xfmResult : Result. // 

// — xfmSrcl : Source 1. // 

// — xfmSrc2 : Source 2. // 

/////////////////////////////////////////////////////// 
{ 

XFM xfm; 

int ilrl, ilr2, ilr3; 

for (ilrl * 0; ilrl < 4; ilrl++) 
for (ilr2 * 0; ilr2 < 4; ilr2++) 

( 

xfm[ilr2] [ilrl] * O.f; 

for (ilr3 » 0; ilr3 < 4; ilr3++) 
xfm[ilr2] [ilrl] += 
xfmSrcl[i 1 r2] [ilr3] * 
xfmSrc2[ilr3] [ilrl]; 

} 

memcpy(xfmResult, xfm, sizeof(XFM)); 

} 

VOID 

MultPt4Pt4Xfm(LPT4 lpt40ut, LPT4 lpt4In, XFM xfm) 
/////////////////////////////////////////////////////// 
// -- Multiply the given vector with the given // 

// transformation matrix (i.e transform a point). // 


// 

— Ipt40ut 

: Transformed point. 

// 

// 

— 1pt4In 

: Point to transform. 

// 

// 

— xfm 

: Transformation matrix. 

// 

/////////////////////////////////////////////////////// 


{ 

int ilrl, ilr2; 

PT4 pt4; 

for (ilrl * 0; ilrl < 4; ilrl++) 

{ 

pt4[ilrl] * O.f; 


for (11r2 * 0; ilr2 < 4; ilr2++) 
pt4[11rl] +* 

Ipt41n[ilr2] * xfm[ilr2] [ilrl]; 

} 

fmemcpy(lpt40ut, pt4, sizeof(PT4)); 


} 


VOID 

IdentityXfm(XFM xfm) 

/////////////////////////////////////////////////////// 

// -- Make given matrix the identity transform. // 

// — xfm ; Transformation to make identity. // 

/////////////////////////////////////////////////////// 
{ 

memcpy(xfm, xfmldentity, sizeof(XFM)); 

) 
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transformation R can be represented by the matrix SR. This is 
a very useful property, since you can implement any of these 
transformations through one common matrix multiplication 
routine. 

Unfortunately, the operation I have left out, translation, is 
not a linear transformation, and cannot be represented by a 3 
x 3 matrix for translations in 3-space. Luckily, homogeneous 
coordinates do allow translations to be represented in a 4x4 
matrix, as well as scaling and rotation. A homogeneous 3-D 
vector is of the form [x y z 1 ]. Thus the translation T of the 
homogeneous vector [x y z 1] by the vector [a b c] is ex¬ 
pressed as: 


Listing 2 continued 


VOID 

InvertTransformXfmXfm(XFM xfmOut, XFM xfmln) 

/////////////////////////////////////////////////////// 


// -- Invert a viewing transform. // 
// — Inverts the upper 3x3 submatrix, and uses the // 
// fact that the last row can only be a // 
// translation. // 
// -- xfmOut : Will contain inverse transform. // 
// — xfmln : Transform to invert. // 


lllllllllllllllllllllllllllllllllllllllllllllllllllllll 

{ 

float lrDet; // Determinant, 

int ilrl, ilr2; // Loop indices. 

XFM xfm; // General purpose transform. 

memcpy(xfm, xfmldentity, sizeof(XFM)); 

// Invert upper left 3x3 submatrix, 
for (ilrl = 0; ilrl < 3; ilrl++) 

xfm[0][ilrl] = xfmln[(ilrl + 1) % 3] [1] * 
xfmln[(ilrl + 2) % 3] [2] - 
xfmln[(ilrl + 2) % 3] [1] * 
xfmln[(ilrl + 1) % 3] [2]; 

for (ilrl = 0; ilrl < 3; ilrl++) 

xfm[l][ilrl] = xfmln[(ilrl + 2) % 3] [0] * 
xfmln[(ilrl + 1) % 3] [2] - 
xfmln[(ilrl + 1) % 3] [0] * 
xfmln[(ilrl + 2) % 3] [2] ; 

xfm[2][0] = xfmln[l][0] * xfmln[2][l] - 
xfmln[2][0] * xfmln[1] [1]; 
xfm[2] [1] = xfmln[0][l] * xfmln[2][0] - 
xfmln[0] [0] * xfmln[2] [1]; 
xfm[2] [2] = xfmln [0] [0] * xfmln [1] [1] - 
xfmln[l][0] * xfmln[0][l]; 

lrDet = xfmln[0] [0] * xfm[0] [0] + 
xfmln[0][l] * xfm[l] [0] + 
xfmln[0][2] * xfm[2] [0]; 

for (ilrl = 0; ilrl < 3; ilrl++) 
for (ilr2 = 0; ilr2 < 3; ilr2++) 
xfm[ilrl] [ilr2] /= lrDet; 

// Multiply the negative of the original 
// translation by the inverse of the original 3x3 
// submatrix. 

for (ilrl = 0; ilrl < 3; ilrl++) 

xfm[3][ilrl] = -xfm[0] [ilrl] * xfmln[3] [0] - 
xfm[l][ilrl] * xfmln [3] [1] - 
xfm[2][ilrl] * xfmln[3] [2]; 

memcpy(xfm0ut, xfm, sizeof(XFM)); 
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r(x, y, z, 1) = (x', y‘, z', 1) 
= (x + a, y + b, z + c, 1) 


r 


In homogeneous matrix form this becomes: 


10 0 0 
0 10 0 

0 0 10 

a b c 1 


V = kF 


so that 


where 

V - [x' / z' 1] 


and 


fr=[xyzl] 


10 0 0 
0 10 0 

0 0 10 

a b c 1 


Listing 3 bezier.c - Program to draw and manipulate 3-D Bezier Curves 


II Header files. 
#include <windows.h> 
linclude <windowsx.h> 
linclude <math.h> 
linclude <memory.h> 
linclude "bezier.h" 
linclude “matrix.h“ 


// Macros. 

Idefine szApp 
Idefine cpt4 
Idefine drHit 
Idefine cptBezierMin 
Idefine cptBezierMax 100 
Idefine dcptBezier 5 
Idefine angPi 
Idefine dangRotate 
Idefine IrEdge 
Idefine dxyWindow 


Bezier" 

4 // Max. I control points. 

20 // Hit detection radius. 

10 // Min. I Bezier pts. 

// Max. I Bezier pts. 

// Increment. 

3.141592f 

(angPi / 36.f) // 5 degrees. 

600.f // Cube edge. 

1000 // Window extents. 


// Globals. 

HDC hdc; 

BOOL fShowCube 

PT4 FAR * lrgpt4Bezier; 
int cptBezier; 

PT4 rgpt4Ctrl [] « 

{ 

( -500.f, 500.f, 
{ 500.f, 500.f, 

{ 500.f, -500.f. 

{ -500.f, -500.f. 

}; 


// Uses CS_0WNDC. 

TRUE; // Show bounding cube? 
// Bezier pts. 

// Bezier quality. 

// Control points. 

O.f, l.f }, // Upper left. 
O.f, l.f }, // Upper right. 
O.f, l.f ), // Lower right. 
O.f, l.f ) // Lower left. 


PT4 rgpt4Cube[] = 

{ 

{ -IrEdge, IrEdge, 
{ IrEdge, IrEdge, 
{ IrEdge, -IrEdge, 
{ -IrEdge, -IrEdge, 
{ -IrEdge, IrEdge, 
{ IrEdge, IrEdge, 
{ IrEdge, -IrEdge, 
{ -IrEdge, -IrEdge, 

}; 


// Vertices of a cube. 

IrEdge, l.f }, 

IrEdge, l.f }, 

IrEdge, l.f }, 

IrEdge, l.f }, 

-IrEdge, l.f }, 

-IrEdge, l.f }, 

-IrEdge, l.f }, 

-IrEdge, l.f } 


XFM 

{ 

); 

XFM 


xfmPoly 


// Polynomial matrix. 


{ 

{ 

f 

{ 


-l.f, 3.f, 

-3.f, 

l.f ), 

3.f, -6.f, 

3.f, 

O.f ), 

-3.f, 3.f, 

O.f. 

O.f }. 

l.f, O.f, 

O.f, 

O.f ) 

xfmView; 

// Viewing transform 


// Prototypes. 

LRESULT CALLBACK BezierWndProc(HWND, UINT, WPARAM, 

LPARAM); 

VOID ClientAreaResized(HWND, POINT *); 

VOID ComputeBezier(VOID); 

VOID DrawCube(VOID); 

VOID DrawBezier(VOID); 

VOID GetRectIpt4Pt4(RECT *, int, PT4); 

int Ipt4Pick(P0INT, float *); 

VOID MoveHandlelpt4(int, POINT *, float, 

HWND); 

VOID PaintWnd(HWND); 

VOID RotateView(WPARAM, HWND); 

VOID SetBezierCpt(int); 


VOID 
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[. x+a y+b z+c 1] 

- [*' y' z' i] - v‘ 


R 

y 


The homogeneous forms for the linear transformations are: 


S 


a 

0 

0 

0 


0 

b 

0 

0 


0 0 

0 0 

c 0 

0 1 


R 

X 


1 o o 0 

0 cos(0) sin(0) 0 

0 —si n(0) cos(0) 0 
0 0 0 1 


Listing 3 continued 


R 


cos(0) 

0 -sin(0) 

0 

1 o 

sin(0) 

0 cos(0) 

0 

0 0 

cos(0) 

sin(0) 0 

-sin(0) 

cos(0) 0 


0 0 1 0 


Just like 3x3 matrices, the product of a series of 
homogeneous matrices expresses the result of each matrix 
applied sequentially. 

Listing 1 presents some basic homogeneous matrix and 
point (vector) types and the prototypes to four routines that 


/////////////////////////////////////////////////////// 
// -- Fill the Bezier point array from the current // 
// set of control points. // 

/////////////////////////////////////////////////////// 
{ 

int ipt; 

XFM xfm; 

MultXfmXfmXfm(xfm, xfmPoly, rgpt4Ctrl); 
for (ipt * 0; ipt <* cptBezier; ipt++) 

{ 

PT4 pt4; 
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complete Btrieve applications. 
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be compiled to static library or Windows DLL. Royalty free. 

Full source code and set of sample programs. All for a limited 
time introductory price of only $149. Take advantage of this 
limited time offer and order yours today. 

Btrv++ A 

Classic Software version 2.(3^i 

(313) 677 -0732 _ Offer ends Nov 27. 1992 
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pt4[3] - l.f; 

pt4[2] * (float)ipt / (float)cptBezier; 
pt4[l] - pt4[2] * pt4[2]; 
pt4 [0] = pt4[2] * pt4 [1] ; 
MultPt4Pt4Xfm(lrgpt4Bezier[ipt], pt4, xfm); 

) 

) 

int CALLBACK 

WinMain(HINSTANCE hinsThis, HINSTANCE hinsPrev, 

LPSTR lszCoimiand, int wShowWindow) 
lllllllllllllllllllllllllllllllllllllllllllllllllllllll 
II — Entry point. // 

lllllllllllllllllllllllllllllllllllllllllllllllllllllll 
{ 

MSG msg; 

HWND hwnd; 

if (hinsPrev «« NULL) 

{ 

// First instance must register a class. 
WNDCLASS wcs; 

wcs.style = CS_HREDRAW | CSJREDRAW | CS_0WNDC; 

wcs.lpfnWndProc = BezierWndProc; 

wcs.cbClsExtra = 0; 

wcs.cbWndExtra = 0; 

wcs.hlnstance = hinsThis; 

wcs.hlcon = NULL; 

wcs.hCursor ■ LoadCursor(NULL, IDC_ARR0W); 
wcs.hbrBackground = (HBRUSH) (C0L0R WIND0W + 1); 
wcs.lpszMenuName = szApp; 
wcs.lpszClassName - szApp; 
if (!RegisterClass(&wcs)) 
return FALSE; 

} 

IdentityXfm(xfmView); 

SetBezierCpt(cptBezierMin); 

ComputeBezier(); 

if ((hwnd * CreateWindow(szApp, szApp, 
WS_0VERLAPPEDWIND0W, CWJJSEDEFAULT, 

CWJJSEDEFAULT, CWJJSEDEFAULT, CWJJSEDEFAULT, 

NULL, NULL, hinsThis, NULL)) — NULL) 
return FALSE; 

ShowWindow(hwnd, wShowWindow); 
while (GetMessage(&msg, NULL, 0, 0)) 
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provide matrix manipulation services. I have implemented a 
homogeneous point as an array of four floats, so that the 
individual coordinate components can be accessed with an 
index. For the same reason, I implemented the homogeneous 
matrix as an array of four homogeneous points. 

Listing 2 presents the implementation of the four utility 
routines. MultXfmXfmXfmO multiplies two 4x4 matrices and 


returns the result in a third 4x4 matrix. The result is stored 
in a local variable to allow one or both of the source matrices 
to appear as the destination. Since the matrices are arrays, 
they are really passed as pointers-, without the local matrix, 
wrong values would be obtained, as intermediate results 
stored in the destination would affect the source. Mult- 
Pt4Pt4Xfm() premultiplies the given point with the given 


Listing 3 continued 


{ 

Transl ateMessage(&msg); 

DispatchMessage(&msg); 

} 

return TRUE; 

) 

LRESULT CALLBACK 

BezierWndProc(HWND hwnd, UINT wm, WPARAM wParam, 

LPARAM 1 Param) 

lllllllllllllllllllllllllllllllllllllllllllllllllllllll 

II -- Main window procedure. // 

lllllllllllllllllllllllllllllllllllllllllllllllllllllll 
{ 

static float zDown; 

static int ipt4Drag; // Point being dragged. 

switch (wm) 

{ 

default: 

break; 

case WMJNITMENUPOPUP: 

// Keep options menu up to date, 
if (HIWORO(lParam) -« 0 && LOWORD(lParam) ==■ 1) 
CheckMenuItern((HMENU)wParam, idmShowCube, 
fShowCube ? MF_CHECKED : MF_UNCHECKED); 

break; 

case WM_CREATE: 

if ((hdc = GetDC(hwnd)) == NULL) 
DestroyWindow(hwnd); 

SetMapMode(hdc, MMISOTROPIC); 
break; 

case WM_DESTROY: 

// Clean up. 

if (lrgpt4Bezier != NULL) 

Global FreePtr(lrgpt4Bezier); 
PostQuitMessage(O); 
break; 

case WM_LBUTT0ND0WN: 

// Use capture to test for drag-mode, 
if ((ipt4Drag « 

Ipt4Pick(*(POINT *)&lParam, AzDown)) !* -1) 
SetCapture(hwnd); 
break; 

case WMLBUTTONUP: 

if (GetCaptureO »• hwnd) 

ReleaseCapture(); 

break; 

case WM_MOUSEMOVE: 

MoveHandleIpt4(ipt4Drag, (POINT *)&lParam, 
zOown, hwnd); 
break; 

case WM_COMMAND: 
switch (wParam) 


{ 

default: 

return 0; 

case idmQualityUp: 

SetBezierCpt(cptBezier + dcptBezier); 
ComputeBezierO; 

PaintWnd(hwnd); 
break; 

case idmQualityDown: 

SetBezierCpt(cptBezier - dcptBezier); 
ComputeBezierO; 

PaintWnd(hwnd); 

break; 

case idmShowCube: 

fShowCube TRUE; 

PaintWnd(hwnd); 

break; 

) 

break; 

case WM_PAINT: 

{ 

PAINTSTRUCT wps; 

BeginPaint(hwnd, &wps); 

DrawBezier(); 
if (fShowCube) 

DrawCubeO; 

EndPaint(hwnd, &wps); 

} 

return 0; 
case WMSIZE: 

II Change the viewing tranform to reflect the 
// size of the client area. Only care about 
// actual changes to the client area, 
if (wParam =■= SIZENORMAL 11 
wParam == SIZEFULLSCREEN) 
ClientAreaResized(hwnd, (POINT *)&lParam); 
break; 

case WMJCEYDOWN: 

RotateView(wParam, hwnd); 
break; 

} // End switch wm. 

return DefWindowProc(hwnd, wm, wParam, IParam); 

) 

VOID 

ClientAreaResized(HWND hwnd, POINT * ppt) 

/////////////////////////////////////////////////////// 


// — Remap world space to view space. // 
// — The goal is to map the cube with corners // 
// (-1000, -1000, -1000) and (1000, 1000, 1000) // 
II to the client area. // 
// — hwnd : Window being resized. // 
// — ppt : New size. // 


lllllllllllllllllllllllllllllllllllllllllllllllllllllll 
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matrix. Once again, local storage is used so that the same 
point can be used for both source and destination. Identify- 
Xfm() sets the given matrix to the identity matrix. Invert- 
TransformXfmXfm () inverts the given homogeneous matrix, it 
is not a general 4x4 matrix inverter, since it assumes that the 
matrix is truly homogeneous, i.e., that the last column is the 
vector [0 0 0 1], This will be useful for manipulating the 


viewing transform, described later. InvertTransformXfmXfm() 
works by inverting the upper left 3 x 3 submatrix, using the 
fact that the inverse of a non-singular matrix is its adjugate 
divided by its determinant: 

! _ adj^ 
det<A) 


Listing 3 continued 


{ 

rect.bottom - rect.top, DSTINVERT) ; 

int dx » ppt->x »■ 1; 

} 

int dy * ppt->y »■ 1; 

for (ipt ■ 0; ipt <■ cptBezier; ipt++) 

{ 

SetWindowExtEx(hdc, dxyWindow, dxyWindow, NULL); 

SetViewportExtEx(hdc, dx, -dy, NULL); 

PT4 pt4; 

SetViewportOrgEx(hdc, dx, dy, NULL); 


) 

MultPt4Pt4Xfm(pt4, lrgpt4Bezier[ipt], xfmView); 

VOID 

if (ipt »■ 0) 

MoveToEx(hdc, (int)pt4[0], (int)pt4[l]. 

SetBezierCpt(int cptNew) 

NULL) ; 

/////////////////////////////////////////////////////// 

else 

// -- Set the number of line segments to use. // 

LineTo(hdc, (int)pt4[0], ( int)pt4[1] ) ; 

// — cptNew : Number of line segments. // 

) 

/////////////////////////////////////////////////////// 

{ 

int cptAlloc; 

} 

VOID 

if (cptNew < cptBezierMin || cptNew > cptBezierMax) 

DrawCube(VOID) 

/////////////////////////////////////////////////////// 

return; 

// — Draw a cube for reference. // 

cptAlloc » cptNew + 1; 

/////////////////////////////////////////////////////// 

{ 

if (lrgpt4Bezier ■« NULL) 

PT4 rgpt4[8] ; 

( 

int ipt4; 

lrgpt4Bezier = (PT4 FAR *)GlobalAllocPtr( 


GMEM MOVEABLE, cptAlloc * sizeof(PT4) ); 

for (ipt4 * 0; ipt4 < 8; ipt4++) 

if (lrgpt4Bezier »■ NULL) 

MultPt4Pt4Xfm(rgpt4[ipt4], rgpt4Cube[ipt4], 

return; 

) 

else 

xfmView); 

// Draw front face. 

( 

MoveTofhdc, (int)rgpt4[0][0], (int)rgpt4[0][1] ); 

PT4 FAR * lrgpt4; 

for (ipt4 * 1; ipt4 < 5; ipt4++) 

lrgpt4 = (PT4 FAR *)GlobalReAllocPtr( 

LineTo(hdc, (int)rgpt4[ipt4 % 4] [0], 

(int) rgpt4 [i pt4 % 4] [1] ); 

lrgpt4Bezier, cptAlloc * sizeof(PT4), 


GMEM MOVEABLE) ; 

// Draw back face. 

if (lrgpt4 == NULL) 

MoveTo(hdc, (int)rgpt4[4] [0], (int)rgpt4[4] [1] ); 

return; 

for (ipt4 » 1; ipt4 < 5; ipt4++) 

lrgpt4Bezier = lrgpt4; 

} 

cptBezier = cptNew; 

} 

VOID 

LineTo(hdc, (int)rgpt4[ipt4 % 4 + 4] [0], 
(int)rgpt4[ipt4 % 4 + 4] [1]); 

// Draw 4 front-to-back lines, 
for (ipt4 « 0; ipt4 < 4; ipt4++) 

{ 

MoveTo(hdc, (int)rgpt4[ipt4] [0], 

(int)rgpt4[ipt4] [1]); 

DrawBezier(VOID) 

LineTo(hdc, (int)rgpt4fipt4 + 4][0], 

/////////////////////////////////////////////////////// 

(int)rgpt4[ipt4 + 4][lj); 

// -- Draw the Bezier given by the current Bezier // 

) 

// point array. // 

) 

/////////////////////////////////////////////////////// 


{ 

VOID 

int ipt; 

RotateView(WPARAM vkc, HWND hwnd) 

for (ipt = 0; ipt < 4; ipt++) 

/////////////////////////////////////////////////////// 

// — Rotate the view by the key pressed // 

( 

// (arrow keys cause rotation about the // 

RECT rect; 

// appropriate axis). // 

PT4 pt4; 

// — vkc : Key code. // 

GetRectIpt4Pt4(&rect, ipt, pt4) ; 

// — hwnd : Update this window when done. // 

/////////////////////////////////////////////////////// 

PatBlt(hdc, rect.left, rect.top, 

{ 

rect.right - rect.left. 

float ang; 
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While this is not a very efficient way to invert a matrix, the 
expense for a 3 x 3 matrix is worth the simplicity of the im¬ 
plementation. Since the bottom row of a homogeneous matrix 
represents a translation, its inverse can be calculated by scal¬ 
ing the original translation with the inverted 3x3 matrix and 
negating the result. 


Since MultXfmXfmXfm() and MultPt4Pt4Xfm() operate on 
any 4x4 matrix, they can be also be used to implement the 
matrix form of the Bezier curve equation. This makes the im¬ 
plementation of ComputeBezier() in Listing 3 amazingly 
simple. ComputeBezierf) is passed a value between 0 and 1 
for the parameter t, and computes the point along the curve 
for the parameter. Most of the work is in creating the vector T 


Listing 3 continued 



XFM xfm; 



switch (vkc) 


int 

Ipt4Pick(P0INT pt, float * pz) 

( 


/////////////////////////////////////////////////////// 

default: 


// — Test to see if the given point "hits" one the // 

return; // Unknown key. 


// control points. // 

case VK LEFT: // -5 degrees. 


// -- If no, return -1, else return the index of the // 

// control point hit. // 

case VK UP: 


// -- pt : Mouse down point in client coords. // 

case VK PRIOR: 


// -- pz : Return z value in view coords. // 

ang * -dangRotate; 


/////////////////////////////////////////////////////// 

break; 


( 



int ipt4; 

case VK RIGHT: 



case VK DOWN: 


DPtoLP(hdc, &pt, 1); 

case VK NEXT: 


for (ipt4 * 0; ipt4 < cpt4; ipt4++) 

ang = dangRotate; // 5 degrees. 


( 

break; 


RECT rect; 

1 


PT4 pt4; 

IdentityXfm(xfm) ; 


GetRectIpt4Pt4(8.rect, ipt4, pt4); 

if (vkc == VK UP || vkc == VK DOWN) 

( 

// Compute x axis rotation matrix. 


if (PtInRect(&rect, pt)) 

( 

*pz = pt4 [2] ; 


xfm[l][l] ■ (float)cos(ang) ; 


return ipt4; 

xfm[l] [2] = (float)sin(ang) ; 


) 

xfm[2] [1] * -xfm[lj [2] ; 


} 

xfm[2] [2] * xfm[l] [1] ; 



) 


return -1; 

else if (vkc == VK LEFT || vkc == VK RIGHT) 

/ 


) 

i 

// Compute y axis rotation matrix. 


VOID 

xfm[0] [0] = (float)cos(ang) ; 


GetRectIpt4Pt4(RECT * prect, int ipt4, PT4 pt4) 

xfm[0][2] = (float)-sin(ang) ; 


/////////////////////////////////////////////////////// 

xfm[2] [0] * -xfm[0] [2]; 


// -- Compute the "handle" for the given control // 

xfm [2] [2] = xfm[0] [0]; 


// point. // 

) 


// -- prect : On output, contains handle rect. // 

else 


// -- ipt4 : Index of control point. // 

{ 


// -- pt4 : On output, contains view point. // 

// Compute z axis rotation matrix. 


/////////////////////////////////////////////////////// 

xfm[0][0] » (float)cos(ang); 


( 

xfm[0] [1] = (float)sin(ang); 


POINT pt; 

xfm[l] [0] = -xfm[0][l]; 



xfm[l] [1] = xfm[0] [0]; 


// Get the control point into view coords, and 

) 


// construct a rectangle around it. 

// Apply to global rotation matrix. 


MultPt4Pt4Xfm(pt4, rgpt4Ctrl[ipt4], xfmView); 
pt.x » (int)pt4[0]; 

MultXfmXfmXfm(xfmView, xfmView, xfm); 


pt.y - (int)pt4[1]; 

PaintWnd(hwnd); 


prect->left = pt.x - drHit; 

) 


prect->right = pt.x + drHit; 

VOID 


prect->top = pt.y - drHit; 
prect->bottom « pt.y + drHit; 

PaintWnd(HWND hwnd) 


} 

/////////////////////////////////////////////////////// 


// -- Force the window to update itself. 

// 

VOID 

// -- hwnd : Window to repaint. 

// 

MoveHandleIpt4(int ipt4, POINT * ppt, float z, 

/////////////////////////////////////////////////////// 

HWND hwnd) 

{ 


/////////////////////////////////////////////////////// 

InvalidateRect(hwnd, NULL, TRUE); 


// -- Move a control point, recompute the Bezier // 

UpdateWindow(hwnd); 


// point array, and redisplay the Bezier. // 

} 


// -- ipt4 : Index of control point to move. // 
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Listing 3 continued 


// 

- ppt 

: New location in view space. 

// 

// 

-- z 

: View space z position of handle. 

// 

// 

-- hwnd 

: Main window. 

// 


/////////////////////////////////////////////////////// 

{ 

float lr; 

PT4 pt4; 

XFM xfmlnv; 

if (GetCaptureO !• hwnd) 

return; // Not in "move-handle" mode. 

// Clip screen point to bounding sphere. Convert 
// screen point to world coords, determine distance 
// from origin, and clip to sphere if it extends 
// past the sphere's surface. 

DPtoLP(hdc, ppt, 1); 
pt4[0] = ppt->x; 
pt4[l] = ppt->y; 
pt4 [2] * z; 
pt4[3] = l.f; 


InvertTransformXfmXfm(xfmInv, xfmView); 
MultPt4Pt4Xfm(pt4, pt4, xfmlnv); 

// Control point now in world coords. Get distance 
// from origin. 

lr = (float)sqrt(pt4[0] * pt4[0] + 
pt4[1] * pt4[l] + pt4[2] * pt4[2]); 

// Clip to surface of sphere, 
if (lr > IrEdge) 

( 

lr /= IrEdge; 

Pt4 [0] /= lr; 
pt4[l] /= lr; 
pt4[2] /= lr; 

) 

memcpy(rgpt4Ctrl[ipt4], pt4, sizeof(PT4)); 
ComputeBezierO; 

PaintWnd(hwnd); 

} 

/* End of File */ 


which contains the powers of t. The rest of the code is a 
straightforward expression of the matrix equation 

P(t) = TMG 

Putting a 3-D Object on the Screen 

Now that you have the necessary tools, it is time to 
describe the heart of any 3-D graphics application, the viewing 


transform. This beast is responsible for converting the 3-D 
coordinates of world space into the logical 2-D coordinates of 
your screen. As you have probably guessed, it can be con¬ 
veniently represented as a homogeneous matrix. To transform 
a homogeneous point to view coordinates, the point is 
premultiplied with the viewing transform-, the resulting x and 
y components of the resulting point describe view space. 

Simple one-point perspective can also be achieved by 
dividing the x and y view space coordinates by the view 
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space z coordinate. A large z value represents a large distance 
from the viewer in a left-handed system (in a left-handed sys¬ 
tem, positive x is to the left, positive y to the top, and posi¬ 
tive z into the screen). So dividing by z has the effect of 
making faraway points cluster together near the origin (the 
vanishing point) (further discussion of perspective is outside 
the scope of this article, see any good 3-D graphics text for 
more information). 

The simplest instance of a viewing transform is the identity 
matrix. This represents a one-to-one mapping from world 
space to view space. The homogeneous point [12 3 1] be¬ 
comes [1 2], More interesting instances will represent some 
combination of rotation, translation, and scaling. For example, 
you can change the view of world space by creating the 
homogeneous matrix for a 45-degree rotation about the x 
axis, and multiply this with the viewing transform. 

An Implementation 

The code in Listing 3, along with the utility matrix services 
of Listings 1 and 2, implements a simple 3-D Bezier curve. List¬ 
ing 4 specifies menu item IDs; Listing 5 is the resource file; 
Listing 6, the linker module definition file-, and Listing 7, the 
makefile. 

The curve is displayed inside a cube (see Figure 3). The up 
and down arrow keys rotate the view about the x axis, the 
left and right arrow keys rotate about the y axis, and the 
page-up and page-down keys rotate about the z axis. The four 
control points are displayed as rectangles, and left-clicking on 
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a control-point rectangle allows the point to be dragged, 
thereby changing the shape of the curve. The “Quality” popup 
menu allows the user to increase or decrease the number of 
line segments displayed, and the popup menu “Options” al¬ 
lows display of the cube to be toggled. 

When the user clicks on a control point, the point’s z coor¬ 
dinate in view space is captured so that moving the point in 
the window changes only its x and y coordinates in view 
space. In other words, the control point is constrained to 
move along a particular constant z plane in view space. If the 
view has been rotated about the X or Y axes, this plane will 
have an arbitrary orientation in world space. So moving a con¬ 
trol point when the view has been rotated about the X or Y 
axes will in general cause all three of its coordinates to 
change in world space. 

The program also constrains the possible movement of a 
control point to lie within the largest possible sphere inscribed 
inside the cube. This prevents “losing" a control point, since 
otherwise a small translation in the window could correspond 
to a large z translation in world coordinates. A subsequent 
rotation could swing the point completely off the window. 

I chose the coordinate system for world space to be (-1000, 
-1000, -1000) for the bottom left point nearest the viewer and 
(1000, WOO, 1000) for the upper right point furthest away. This 
defines a left-handed coordinate system with the origin at the 
center. The advantage of a left-handed system is that it places 
points with greater z further from the viewer. Since the pro¬ 
gram does not perform scaling, view space will fall in the rec¬ 
tangle defined by the two 2-D points (-1000, -1000) and (1000, 


1000). View space can then be mapped to physical screen 
space by changing the mapping mode for the device context 
to MM ISOTROPIC. This forces Windows to maintain a 1:1 
aspect ratio so that the cube will always appear as a cube 
and not a rectangular prism. The main window class is 
registered with the CS_OUNDC style, so that the device context 
belongs to the window for the lifetime of the program. 

When the window is created, the UM_CREATE case of 
BezierWndProc() obtains a device context and sets its map¬ 
ping mode to MM_ISOTROPIC. Each time the window is sized, 
the UM_SIZE case calls ClientAreaResized() to maintain the 
view coordinate mapping. ClientAreaResized() calls Set- 
UindowExtf) to define the logical coordinate system from (- 
1000, -1000) to (1000, 1000), and SetViewportExtEx() and 
SetViewportOrgEx() are used to map the physical coor¬ 
dinates to the window, but with increasing Y toward the top 
of the window and the origin at the center of the window. 
You might wonder why I don't call SetWindowExt() just the 
one time in the WM_CREATE case of BezierUndProc(). The 
reason is that a UM_ERASEBKGND message will be received 
before the WM_SIZE message is. Since SetViewportExtEx() 
has not yet been called to complete the specification of the 
mapping, only some arbitrary portion of the background, 
rather than the entire window's background, will be erased. 

The global variable lrgpt4Bezier is used to hold the array 
of homogeneous points that are computed with each call to 
ComputeBezier(). The array is allocated with SetBezierCpt(). 
This routine is called to set up space for the initial array (10 
points) and each time the user requests an increase or 
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Floating-Point Code Generation with Microsoft C 


The Microsoft C compiler provides several different 
methods for controlling the generation of floating-point 
code. Of these, the most flexible is the /FPi option. This 
option generates code that uses a coprocessor if one is 
present; otherwise, it uses emulation code. The mechanism 
by which this works is incorrectly documented by Microsoft 
On page 510 of the C7.0 Environment and Tools book, under 
the /FPi option is the paragraph: 

This option works whether or not a coprocessor is present be¬ 
cause the compiler does not generate “true” inline 80x87 instruc¬ 
tions. Instead, it generates software interrupts to library code. The 
library code, in turn, adds fixups to the interrupts to select either 
the emulator or the coprocessor, depending on whether a 
coprocessor is present 

As it turns out, the compiler does generate “true” inline 
floating-point instructions. The Windows loader is the agent 
responsible for patching these instructions with software in¬ 
terrupts. It does this by scanning a table of relocation 
records, one per floating-point instruction, generated by the 
linker. If you use exehdr with the -v switch on an ex¬ 
ecutable, you will see lines like "OFFSET xxxx os #6, additive" 
for each of these special relocation table entries. If a 
coprocessor is not present, the floating-point instructions 
are replaced with an INT 3Xh instruction that uses an inter¬ 
rupt number from the range 34h to 3Ch, depending on the 
instruction to be emulated. If a coprocessor is present, the 
floating-point instructions are left alone. 

But this is not the end of the story. The compiler not 
only generates the inline floating-point instructions, but also 
precedes some of them with a WAIT instruction, and ap¬ 
pends to some of them a NOP, WAIT instruction pair. The 
prepended WAIT instructions ensure that if a coprocessor is 
present, the previous floating-point instruction will be com¬ 
pleted before another is begun. But with the 80286 and 
later processors, this is no longer necessary, since the 80286 
automatically tests the BUSY pin before executing a float¬ 
ing-point instruction (or more accurately, passing it to the 
coprocessor). The linker generates a distinct relocation 
record for floating-point instructions preceded by a WAIT in¬ 
struction. When a coprocessor is present, and the Windows 
3.1 loader detects one of these relocation records, it 
replaces the WAIT instruction with a NOP, since it knows it is 
running on an 80286 or better (earlier processors do not 
provide protected mode). If a coprocessor is not present, the 
INT 3Xh instruction is actually placed on top of the WAIT 
instruction instead of starting at the floating-point instruc¬ 
tion. 

The compiler emits the NOP, WAIT pair for those float¬ 
ing-point instructions that store data in memory, if a 
coprocessor is present, the numeric processor must 
synchronize with the floating-point processor before access¬ 
ing the memory data to ensure that the coprocessor has 
completed the transfer to memory. As you may have 
guessed, yet another type of relocation record is used for 
these floating-point instructions. When the 3.1 loader 
detects one, it replaces the NOP, WAIT pair with an INT 3Dh 


instruction. Once again, win87em.dll services this interrupt, but 
this time its intent is not emulation, but exception handling. 

When a floating-point exception occurs ( interrupt 16), 
win87em.dll records the exception in some internal static 
variables and returns. It can’t do much more because of the 
severe restrictions imposed on a module-based exception 
handler (VxD's are another story). Back in the application, 
once the INT 3Dh instruction is executed, win87em.dll's in¬ 
terrupt handler executes a WAIT instruction (since the loader 
nuked the one present in the code) and checks its static 
variables to see if an exception has previously occurred. If 
so, the appropriate action is taken. 

There are two problems with this approach: 

1. It is too slow. Even if a floating-point processor is present, 
a bunch of INT 3Dh’ s will litter your code. Most of the time 
(hopefully), your code will not have generated any exceptions. 
But each INT 3Dh will trap to win87em.dll, which has to 
check its state before it decides that nothing has happened 
and it can I RET back to your application. This overhead can be 
tremendous; I have seen speed hits of 500 percent 

2. It only works with code generated using the /FPi op¬ 
tion. If you compile code with /FPi87, the result is pure 
inline floating-point code. No trailing NOP, WAIT pairs are 
emitted to be converted by the loader into INT 3Dh’ s. In 
fact, an application compiled with /FPi87 that does 
generate floating-point exceptions can confuse Windows 
into terminating an innocent application (see question 3 in 
the May Windows Q<StA column). 

Microsoft has been at work on a new version of 
win87em.dll that addresses these concerns. Each time an 
INT 3Dh is serviced, the code containing the interrupt is 
back-patched to the original NOP, WAIT pair. If an excep¬ 
tion occurs, the instruction following the one that caused 
the exception is recorded, and the instruction is replaced 
with an INT 3Dh. Control is returned to the application, 
which immediately executes the INT 3Dh. The interrupt 
handler in win87em.dll can then handle the exception, and 
the application's code is restored. This scheme means that 
floating-point exceptions will be properly handled regardless 
of the option used to compile the code, and that even 
though the first pass through the code will be slow, sub¬ 
sequent passes will be at near /FPi87 speed. By the time 
this article sees print, the new DLL should be available on 
CompuServe, and it is freely distributable with your applica¬ 
tion. 

One more point worth mentioning is a bug in C7.0's fast¬ 
mode compiler. The fast-mode compiler is invoked when 
the /Od (disable optimizations) option is specified. The bug 
is that the /FPi87 flag has no effect when used with /Od. It 
produces the same code as if /FPi has been specified. I ran 
into this bug after switching to C7.0 from C6.0. All of a sud¬ 
den my code started running five times slower! You can 
override use of the fast mode compiler with the undocu¬ 
mented //- switch. Thus the options //- /Od /FPi87 will 
generate unoptimized pure inline floating-point code. □ 


Page 20 — Windows/DOS Developer’s Journal 


November 1992 





decrease in quality. The global cptBezier records the number 
of points in the array. The points are pumped though the 
viewing transform and displayed in the window with Draw- 
Bezierf). This routine currently uses MoveToExf) and Line- 
To() to draw the individual line segments. It could be op¬ 
timized by allocating an array of 2-D points, filling the array 
with the transformed 3-D points, and calling Polyline() to 
display the entire Bezier curve. This would have the added 
benefit that the 3-D to 2-D transformation only need be done 
when the view is rotated or one of the control points is 
moved. If a WM_PAINT message was received because a por¬ 
tion of the window was unobscured, the call to Polyline() 
with the cached 2-D point array would suffice to redraw the 
curve. 

DrawCubef) transforms the static homogeneous cube ver¬ 
tex array into a local vertex array and paints the front face by 
a call to MoveToExf) for the first vertex and a loop over the 
remaining vertices with LineTo(). MoveToExf) need only be 
called once, since each call to LineTo() updates the current 
position after the line is drawn. By using the modulo 4 
remainder as the loop index goes from 1 to 5, you end up 
where you started from for the last line segment. The back 
face is drawn in a similar fashion. This leaves the four edges 
to connect the two faces, and these are drawn using four 
MoveToExf), LineTof) pairs. 

RotateViewf) translates the arrow and page-up and page- 
down keys into a rotation of the view about the correspond¬ 
ing axis. Each time a keystroke is received, the view is rotated 
5 degrees. One of three homogeneous rotation matrices is in¬ 
stantiated, depending on which axis is being rotated. The 
viewing transform is then multiplied with the rotation matrix. 
PaintUndf) is a tiny routine that forces an update by in¬ 
validating the client area, and calling UpdateUindowf). It pas¬ 
ses TRUE as the erase parameter to InvalidateRectf) which 
forces the background to be erased. But there is no 
m_ERASEBKGUD case in BezierUndProc ()I This is because I 
can rely on DefUindowProcf) to do the work for me. Paint¬ 
Undf) is called after rotating the view to show the new orien¬ 
tation of the cube and Bezier curve. 

When the user clicks with the left button, Ipt4Pick() is 
called to see if the click occurred in one of the control point's 
rectangles. GetRectIpt4() is called in a loop for each of the 
control points to return its rectangle in screen coordinates. 
The Windows API PtlnRectf) is used to see if the location of 
the mouse pointer coincides with a control point's rectangle; if 
it does, the index of the control point in the control-point 
array, rgpt4Ctrl, is returned. Ipt4Pick() is passed a pointer 
to a float which will hold the z value in view coordinates if a 
hit occurs. BezierUndProc() captures the mouse if a hit is 
detected, so that all subsequent mouse moves go to its win¬ 
dow. 

MoveHandleIpt4() is responsible for moving the handle on 
the screen and changing the control point's world coordinates. 
This is where InvertTransformXfmXfmf) comes into play. 
Since the viewing transform transforms a point from world 
coordinates into view coordinates, its inverse will transform a 
point in view coordinates back into world coordinates. So, 
given a point on the window and its z view coordinate, you 
can determine its position in world coordinates by multiplying 


with the viewing transform’s inverse. Since the sphere to con¬ 
strain the point is centered on the origin, you can find out 
whether the point (now in world coordinates) lies within the 
sphere by testing to see if its distance from the origin is less 
than the sphere's radius. If it is not, each of the point's coor¬ 
dinates is divided by the ratio of the distance from the origin 
to the radius of the sphere. This maintains the direction vector 
described by the original point, but clips the point to the sur¬ 
face of the sphere. The Bezier curve is recomputed and the 
window is updated. 



Wscm 


Program Improvements 

The program I have implemented is quite simple and could 
be improved by some enhancements. First, as you will no 
doubt notice once you actually build the program, rotating the 
view or moving a control point generates a lot of flicker. This 
is because the background is being erased and the entire 
scene redrawn each time. The standard technique for reducing 
this flicker is called double buffering. Ideally, it works by draw¬ 
ing the scene into an off-screen portion of video memory. The 
video hardware is then instructed to display the off-screen 
portion, and make the previously visible portion invisible and 
available for rendering into. The switch from one portion to 
the other is fast, and if done during retrace, eliminates flicker. 
Unfortunately, GDI provides no mechanism for doing this. The 
best that can be achieved is to do all rendering into a 
memory bitmap selected into a memory device context. After 
rendering, the bitmap is copied to the screen with BitBltf) 
using the SRCCOPY raster operation code. This can be quite 
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slow, especially for high-resolution displays, since it may re¬ 
quire a transfer of a megabyte or more of data across the 
woefully slow AT bus. 

Second, given the current user interface, there is no way to 
directly manipulate the z coordinate of a control point. The 
right button of the mouse could be used to implement this. 
When a point has been clicked on with the right button, 
moving the mouse up could move the point further away, 
and moving the mouse down could move the point closer. 
This is quite easy to do since Ipt4Pick() has already 
returned the z coordinate of the control point. However, to 
provide feedback to the user, you should implement perspec¬ 
tive, or a status line message showing the world coordinates 
of the control point. 

3-D Enhancements 

In addition to perspective, a couple of other aids can en¬ 
hance the perception of the 3-D rendering. One of these, 
depth cueing, colors a line segment in a continuous range of 
intensity from the point nearest the viewer to the point fur¬ 
thest away. For example, a blue line would appear bright blue 
for low z and fade to a dim, dark blue for high z. 

Stereo is another common technique, with several im¬ 
plementations. The idea is to present two views of the world, 
each seen by offsetting the view a small amount from the 
center. One way, reminiscent of B grade science fiction 
movies, is to use two colors — for example, red and blue. The 
two images are superimposed on each other, and a pair of 
glasses with one red and one blue lens is used to view the 
screen. Each lens only allows light of the other color to pass, 
so each eye is presented a different view. Yet another 
method is to present both views side by side. Known as wall¬ 
eyed stereo, this technique has the viewer hold a piece of 
cardboard between the two images so that the eyes are 
forced to focus on each image. If the images are switched, the 
result is cross-eyed viewing, where the viewer actually crosses 

Listing 4 bezier.h — Interface to Bezier resources 


Idefine idmQualityllp 0x1000 // Increase quality. 
Idefine idmQualityDown 0x1001 // Decrease quality. 

#define idmShowCube 0x1002 // Show bounding cube? 

/* End of File */ 


Listing 5 bezier.rc — Resource file for Bezier 
application 


linclude <windows.h> 
linclude “bezier.h 11 

Bezier MENU 
BEGIN 

POPUP “&Quality" 

BEGIN 

MENUITEM “Slncrease”, idmQualityUp 

MENUITEM “SDecrease”, idmQualityDown 

END 

POPUP "&0ptions" 

BEGIN 

MENUITEM "SShow cube", idmShowCube 

END 
END 


his eyes to see the stereo image. More sophisticated techni¬ 
ques employ special hardware, such as stereographic shutter 
glasses. Such devices display alternate images on the screen, 
switching 60 times a second or more. The viewer wears a pair 
of LCD shutter glasses. The glasses communicate with the dis¬ 
play (e.g., via an infrared link) such that the LCD shutters 
synchronize with the display to present an image to one eye, 
while the other shutter is closed. Another hardware method 
frequently used in virtual reality implementations is a pair of 
goggles that contain two small displays arranged so that each 
is seen by only one eye. 

Conclusion 

Bezier curves are a fast and simple method of implement¬ 
ing 3-D curves. Displaying and manipulating Bezier curves (and 
indeed any 3-D object) relies heavily on linear algebra, espe¬ 
cially matrix manipulation. Homogeneous coordinates provide 
a concise method for describing points in 3-space and for 
transforming them into viewable coordinate space, as the 
sample program, which is implemented in fewer than 700 
lines of C, demonstrates. 
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Listing 6 bezier.def — Linker definition file for the 
Bezier application 


NAME Bezier 

DESCRIPTION 'Bezier Demo Application' 
EXETYPE WINDOWS 

STUB 'WINSTUB.EXE' 

CODE PRELOAD MOVEABLE DISCARDABLE 

DATA PRELOAD MOVEABLE MULTIPLE 

HEAPSIZE 1024 

STACKSIZE 10240 

EXPORTS 

BezierWndProc @1 


Listing 7 makefile - Project file for Bezier 
application 


all: bezier.exe 

matrix.obj: matrix.c 

cl -c -AM -G2w -Od -Zdpe -W3 -DSTRICT $(DEFS) \ 
matrix.c 

bezier.obj: bezier.c 

cl -c -AM -G2w -Od -Zdpe -W3 -DSTRICT $(DEFS) \ 
bezier.c 

bezier.exe: bezier.obj matrix.obj bezier.def \ 
bezier.rc makefile 

link /NOD/map bezier matrix,,, libw mlibcew, \ 
bezier.def 

rc $(DEFS) bezier 
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Number Crunching 


Writing Efficient FPU Code 


Michael Holzrichter 


Introduction 

Most PCs did not have an FPU before the 80486, since most software did 
not require a floating-point unit (FPU) and the 80x87 coprocessor cost extra. 
Now, however, the drive for ever greater performance and the fact that the 
80486 comes with the FPU built in are powerful incentives for learning to 
program the FPU. 

I have created a library of assembly language functions (see the sidebar) 
that use the FPU to perform arithmetic on vectors of floating-point numbers 
(the source code for this library is included on the code disk and the UUNET 
archive). You can use the functions as is or study the source code for ex¬ 
amples of various programming techniques. You can use the library to per¬ 
form a wide variety of calculations, with an average speed about three 
times as fast as the equivalent C routines. 

This article reviews the FPU architecture, the FPU instruction set, and the 
issues related to FPU programming, then uses examples from my floating¬ 
point function library to illustrate efficient FPU programming techniques. The 
library is intended to serve as a framework for adding FPU capability to your 
applications as quickly as possible. 

Architecture of the FPU 

The FPU consists of eight 80-bit data registers arranged as a stack, plus a 
status word, a control word, a tag word, and error pointer registers. The tag 
word and error pointers are used by exception handlers, which are beyond 
the scope of this article. The default exception handling provided by the FPU 
is robust enough that few computational situations require an exception 
handler. 

You will be mainly concerned with the register stack and, to a lesser 
extent, the status word and control word. The status and control words 
contain information regarding the state of the FPU and 
operating mode, while the register stack has the actual 
data you are using in your calculations. Before looking at 
the registers, however, you should understand the FPU's 
data format. 


a 


After graduating from the Colorado School of Mines with BS degrees in 
Geophysics and Mathematics in 1986, Michael Holzrichter accepted a 
programming position with a geophysical contractor. He has recently 
returned to the US after spending the past two years as the resident 
programmer at a seismic data processing center in China. His interests are 
number crunching, signal processing, mountains, and travel. 
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Figure 1 FPU register stack 

Reprinted from PC Magazine Programmer’s Technical Reference: 

The Processor and Coprocessor (Copyright © 1992 Ziff-Davis Press: 

All Rights Reserved) 
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Data Formats 

In Microsoft C, a float is four bytes 
wide, a double is eight bytes wide, and 
a long double is 10 bytes, or 80 bits 
wide. The FPU uses a single 80-bit for¬ 
mat, called extended real, to repre¬ 
sent numbers in its registers. This for¬ 
mat provides significantly more 
precision and range than single- or 
double-precision formats — specifically, 
19 digits of precision and magnitudes 
from 10-4932 t 0 io +4932 . Since computa¬ 
tions performed using this format are 
less susceptible to problems of numeri¬ 
cal instability, it becomes possible to 
use straightforward programming 
methods for cases where other formats 
require special coding. The 80-bit format 
can exactly represent integers as large 
as 2 6A ; thus the FPU can perform most 
integer computations with as much ac¬ 
curacy as the IU. 

While the FPU uses only one internal 
format, it can work with numbers 
stored in memory in several formats. 
The formats are 16-, 32-, and 64-bit in¬ 
teger, 80-bit packed Binary Coded 
Decimal (BCD), and 32-, 64-, and 80-bit 
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floating-point format. When the FPU 
reads a number from memory, it con¬ 
verts the number from its original for¬ 
mat to the extended real format. The 
FPU does the reverse conversion when 
writing numbers back to memory. 

Register Stack 

It is critical to understand the opera¬ 
tion of the register stack (see Figure 1). 
All numeric FPU instructions access the 
stack top. In assembly language instruc¬ 
tions, you designate the stack top with 
ST(0) or simply ST. The values on the 
stack below it are addressed relative to 
the top, so the First register below the 
stack top is ST(1), the second is ST(2), 
and so on. 

If a value is pushed on the stack, 
that value becomes ST(0), ST(0) be¬ 
comes ST(1), and so on. Conversely, if 
the stack is popped the old ST(0) value 
is lost and ST(1) becomes ST(0). A 
maximum of eight values can be 
pushed on the stack. 

Control Word 

Figure 2 shows the layout of the 
FPU's control word. You can use the 


Figure 2 The FPU control word 

Reprinted from PC Magazine Programmer’s Technical Reference: 
The Processor and Coprocessor (Copyright © 1992 Ziff-Davis Press: 
All Rights Reserved) 
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control word to specify which excep¬ 
tions the FPU should handle, as well as 
options for precision and rounding con¬ 
trol. The FINIT instruction initializes the 
FPU and sets the control word to values 
that are satisfactory for most applica¬ 
tions. 

The precision control field lets you 
specify whether the FPU uses 24-, 53-, 
or 64-bits of precision internally when 
performing calculations. This cor¬ 
responds to single-, double-, and ex¬ 
tended-precision calculations, respec¬ 
tively. The precision control affects the 
four basic arithmetic instructions (+,-,*,/) 
and the square root instructions only; it 
has no effect on any other instructions. 
For best results, you should use the 
default (64-bit) precision unless com¬ 
patibility with less precise software is 
an overriding factor. 

The FPU offers four rounding options: 
round to nearest, round toward minus 
infinity, round toward positive infinity, 
and truncate toward zero. The default is 
round to nearest. 

Status Word 

The status word (see Figure 3) has 
information about the state of the FPU. 
It has four condition code bits, six exception flags, and a field 
which points to the current stack top. 

The condition code bits, CO, Cl, C2, and C3, reflect the 
results of comparisons and other operations in much the 
same way the sign, zero, parity, and carry flags of the IU 
reflect the status of integer operations. In fact, the positions of 
these flags line up, so you can transfer the contents of the 
FPU status word to the flag register of the IU to control condi¬ 
tional branching. CO gets transferred to the carry flag, C2 to 
the parity flag, and C3 to the zero flag (Cl has no correspond¬ 
ing bit in the IU flags register). An example is discussed in the 
section on FPU programming techniques. 

In addition to the condition code bits, the status word has 
six flags that the FPU sets when certain exceptions — such as 
division by zero, overflow, etc. - occur. Each flag reflects a 
different exception. These flags are “sticky" and remain set 
until reset by a FINIT or FCLEX instruction. The instruction 
that caused the exception could be any FPU instruction that 
had executed since the last time these bits were reset. These 
bits are most useful for exception handlers which need to 
diagnose the nature of the error. Applications an examine the 
flags at the end of a computation to see if the result is valid. 

The stack top field in the status word contains three bits 
to indicate which register in the register stack is the top of 
the stack. When a value is pushed onto the stack, the value 
in the stack top field is decremented and the value is stored 
in that register. Conversely, when a value is popped from the 
stack, the value is copied to its destination and the value in 
the stack top field is incremented. The first value pushed on 
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the stack is stored in register 7, the 
second is stored in register 6, and so 
on. Values can be pushed onto the 
stack until TOP points to register 0, in 
which case any further attempts to 
push values onto the stack cause an 
exception. 

Instruction Set 

Table 1 shows the FPU instruction 
set, with the instructions grouped ac¬ 
cording to function. The most important 
groups for applications are the data 
transfer instructions, the basic arith¬ 
metic instructions, and the single 
operand instructions. 

All numeric FPU instructions take the 
stack top as one of their operands. The 
single operand instructions replace the 
value on the top of the stack with the 
result when the instruction is applied to 
the stack top. For the dual operand in¬ 
structions, the stack top must be either 
the destination or the source operand. 
(For some instructions, the source 
operand may be a value stored in 
memory.) 

Many instructions have several varia¬ 
tions. The arithmetic and data transfer 


(Table 1 is continued on page 28) 


Table 1 FPU instruction set. The instructions are grouped according to 
function. The table indicates which processors recognize the instruction as 
well as instructions which have pop and integer forms. (An “x" indicates the 
instruction/attribute is available. An “o” indicates the instruction is ignored.) 

a —integer version available 








b —BCD version available 








c — pop version available 








d —register and memory versions available 








e -8087 









f-80287 









g-80387 and 80486 









a 

b 

c 

d 

e 

f 

g 

Data Transfer Instructions 

FST 

Store Real 

X 

X 

X 

X 

X 

X 

X 

FLD 

Load Real 

X 

X 


X 

X 

X 

X 

FXCH 

Exchange Register Contents 





X 

X 

X 

Basic Arithmetic Instructions 

FADD 

Add 

X 


X 

X 

X 

X 

X 

FSUB 

Subtract 

X 


X 

X 

X 

X 

X 

FSUBR 

Subtract Reverse 

X 


X 

X 

X 

X 

X 

FMUL 

Multiply 

X 


X 

X 

X 

X 

X 

FDIV 

Divide 

X 


X 

X 

X 

X 

X 

FDIVR 

Divide Reversed 

X 


X 

X 

X 

X 

X 

Single Operand Instructions 

FABS 

Absolute Value 





X 

X 

X 

FCHS 

Change Sign 





X 

X 

X 

FSQRT 

Square Root 





X 

X 

X 

FRNDINT 

Round to Integer 





X 

X 

X 


a 
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Table 1 continued 



a 

b 

c 

d 

e 

f 

g 

Trigonometr 

c Functions 

FSIN 

Sine 







X 

FCOS 

Cosine 







X 

FSINCOS 

Sine and Cosine 







X 

FPATAN 

Partial Arctangent 





X 

X 

X 

FPTAN 

Partial Tangent 





X 

X 

X 

FPREM 

Partial Remainder 





X 

X 

X 

FPREM1 

Partial Remainder 







X 

Compare and 

Test Instructions 

FCOM 

Compare Real 

X 


X 

X 

X 

X 

X 

FUCOM 

Unordered Compare Real 

X 


X 




X 

FTST 

Test 





X 

X 

X 

Load Contant Instructions 

FLDZ 

Load Constant (0.0) 





X 

X 

X 

FLD1 

Load Constant (1.0) 





X 

X 

X 

FLDPI 

Load Constant ( n) 





X 

X 

X 

FLDL2T 

Load Constant (Log2 (10)) 





X 

X 

X 

FLDL2E 

Load Constant (Log2 (e)) 





X 

X 

X 

FLDLG2 

Load Constant (LoglO (2)) 





X 

X 

X 

FLDLN2 

Load Contant (Ln (2)) 





X 

X 

X 

Log and Anti 

og Instructions 

F2XM1 

Compute 2 X ~' 





X 

X 

X 

FYL2X 

Compute Y*LOG2 (X) 





X 

X 

X 

FYL2XP1 

Compute Y*LOG2 (X+1) 





X 

X 

X 

Floating Point Composition and Decomposition 

FSCALE 

Scale 





X 

X 

X 

FXTRACT 

Extract Exponent and Significand 





X 

X 

X 

Control State of FPU Instructions 

FINIT 

Initialize FPU 





X 

X 

X 

FLDCW 

Load Control Word 





X 

X 

X 

FSTCW 

Store Control Word 





X 

X 

X 

FSTSW 

Store Status Word 





X 

X 

X 

FSTSW AX 

Store Status Word in AX 






X 

X 

FWAIT 

Wait 





X 

X 

X 

Specialized S 

ystems Instructions 

FSTENV 

Store FPU Environment 





X 

X 

X 

FLDENV 

Load FPU Environment 





X 

X 

X 

FSAVE 

Store FPU State 





X 

X 

X 

FRSTOR 

Restore FPU State 





X 

X 

X 

FCLEX 

Clear Exceptions 





X 

X 

X 

FDECSTP 

Decrement Stack-Top Pointer 





X 

X 

X 

FINCSTP 

Increment Stack-Top Pointer 





X 

X 

X 

FXAM 

Examine 





X 

X 

X 

FFREE 

Free Floating-Point Register 





X 

X 

X 

FNOP 

No Operation 





X 

X 

X 

FSETPM 

Set Protected Mode 






X 

0 

FDISI 

Disable Interrupts 





X 

0 

0 

FENI 

Enable Interrupts 





X 

0 

0 


instructions can take a source argument 
which is a 16-, 32-, or 64-bit integer lo¬ 
cated in memory. The integer form of 
these instructions have an l as the 
second letter of the mnenomic — e.g., 
the integer form of the add instruction 
is FIADD. 

Some instructions have a form that 
will pop the stack as a side effect. This 
form of the instruction takes the stack 
top, ST(0), as the source. When the 
operation is performed, the result is 
stored in the destination and the stack 
is popped. 

Since this article is not intended to 
serve as a complete tutorial for begin¬ 
ning FPU programmers, I will forgo an 
exhaustive discussion of the instruction 
set. Instead, the table serves as a quick 
reference for the available instructions, 
and the source code includes examples 
of their use. Table 1 also points out 
anomalies in the instruction set — such 
as which instructions may have 
memory arguments, have pop forms, 
are available on the various coproces¬ 
sors, etc. 

FPU Coding Techniques 

The FPU coding techniques covered 
here include register usage, concurrent 
execution, synchronization problems, 
conditional branching, two-for-one 
forms of instructions, using the IU in¬ 
stead of FPU, and avoiding division. 

The vsin function in Listing 1 il¬ 
lustrates many of the techniques 
presented in this section. The function 
computes the sine of the elements of 
an array of angles (in radians). It uses a 
seventh-order polynomial to ap¬ 
proximate the sine function after the 
angle has been shifted into the interval 
from 0 to pi/4. 

Register Stack Usage 

The key to effective assembly lan¬ 
guage programming is to make the best 
use of the register stack. Compilers 
often store values to memory too fre¬ 
quently — sometimes after every cal¬ 
culation or after every high-level lan¬ 
guage statement. It takes quite a few 
cycles to transfer the data between 
registers and memory as well as to 
convert between formats. If the inter¬ 
mediate values are sorted in 32-or 64- 
bit rather than in 80-bit format, the 
results may be compromised by the 
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Table 2 List of library functions. The functions are grouped according to 
purpose. 

Initialization 

vinit 

initialize 80x87 coprocessor 

Vector-Vector Arithmetic 

wadd 

add elements of arrays 

wsub 

subtract elements of arrays 

wmul 

multiply elements of arrays 

wdiv 

divide elements of arrays 

Scaler-Vector Arithmetic 

svadd 

add scaler to elements of array 

svsub 

subtract array elements from scaler 

svmul 

multiply scaler by elements of array 

svdiv 

divide scaler by elements of array 

Vector-Scaler Arithmetic 

vssub 

subtract scaler from array elements 

vsdiv 

divide array elements by scaler 

Integer/Floating-Point Format Conversion 

itof 

convert from integer to floating-point format 

ftoi 

convert from floating-point format to integer 

Scan Vector for Minimum/Maximum Element 

vsmnmx 

scan for min and max signed value of array 

vamnmx 

scan for min and max absolute value of array 

Scaler Result 

vdprod 

compute inner product of arrays 

vesum 

compute sum of elements of arrays 

Single Operand 


vzero 

zero out arrays 

vmove 

copy values from one array to another 

vabs 

take absolute values of array 

vneg 

change sign of array 

vsqrt 

take square root of values of array 

vsignO 

sign function 

vsignl 

“masked” sign function 

General-Purpose Sine/Cosine 

vsin 

sine (runs on all models of coprocessors) 

vcos 

cosine (runs on all models of coprocessors) 

80387 and 80486 Native Sine/Cosine 

vsin387 

sine (runs on 80387 and later) 

vcos387 

cosine (runs on 80387 and later) 

Spline Functions 

vsplin 

create spline parameters given coordinates 

vspvalO 

evaluate spline at a single point 

vspvall 

evaluate spline at specified set of points 

vspval2 

evaluate spline at regular set of points 

FFT Functions 

vbitrev 

rearrange elements according to bit reverse order 

vbflyO 

perform butterfly computations style one 

vbflyl 

shuffle butterfly output when input is real valued 

vffto 

perform real-to-complex Fast Fourier Transform 

vfftl 

perform complex-to-complex Fast Fourier Transform 
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The Floating-Point Vector Library 


The library consists of the 37 functions listed in Table 2. 
The operation of the functions is similar to the manipula¬ 
tion of numeric data by array processors. The subroutines 
are designed to be used on vectors of uniformly spaced 
32-bit floating-point numbers. An operation is repetitively 
performed on corresponding elements of the input vectors 
to produce an output vector. These operations include 
simple operations such as absolute value, basic arithmetic 
(+,-,*,/), etc., as well as more complex operations such as 
Fast Fourier Transform and cubic spline interpolation. Not 
every element of an array needs to be processed but the 
spacing between elements which are processed must be 
uniform. Programmers experienced with array processors 
will be familiar with the style of coding necessary to inter¬ 
face with these routines. All functions return an error 
code. Zero indicates no error and non-zero indicates an 
error with the specific value indicating the type of error. 

Using the Functions 

The assembler functions follow the Zortech C++ large 
model calling and naming conventions. If these functions 
are to be called from code compiled using another com¬ 
piler, allowances must be made for Zortech’s name man¬ 
gling and left-to-right order of pushing arguments onto the 
stack. 

The functions were written for 80287 and later chips. If 
the functions are to run on 8087 coprocessors, remove the 
.286 and .287 directives and, in those few instances 
where the status word is transferred directly to AX via the 
FSTSW AX, modify the instruction so that the transfer is 
done via memory. (See "Conditional Branching” in the dis¬ 
cussion of FPU programming techniques.) 

Before any of the functions can be used, the FPU must 
be initialized, vinit sets the command word and status 
word of the FPU to known states and clears the register 
stack. The calling function supplies the value stored in the 
command word. This allows the user to choose how the 
FPU handles rounding, precision, etc. Once the FPU is initial¬ 
ized, the other functions may be called. 

The vector-vector arithmetic group of functions is rep¬ 
resentative of the library. These functions take a pair of 
arrays as inputs, perform the requested arithmetic opera¬ 
tion on corresponding input elements, and store the result 
in the output array. The function call 

error » vvadd 
(vector_a, 1, 
vector_b, 1, 
vector_c, 1, len); 

will add the first element of vectored to the first element 
of vector_b and store the result in the first element of 
vector_c. This process is repeated for subsequent input 
elements until len output elements have been created. 
Listing 1 has the assembly language source for vvadd. This 


simple function illustrates the basic implementation of 
functions in this library. 

vvadd 's calling sequence is typical of the functions in 
this library. The first argument is a far pointer to the first 
input array and the second is the stride for that array. The 
third and fourth arguments are a far pointer and stride for 
the second input array. The fifth and sixth arguments are 
a far pointer and stride for the output array. The last argu¬ 
ment is the number of elements to process. The general 
pattern of the functions' argument lists is: 

1. Parameters for input arrays come first and are fol¬ 
lowed by parameters for the output array 

2. Far pointers are followed by strides for each array 

3. The last parameter is the number of elements to 
process. 

If the function is not to process every element of an 
array, the stride can be given as a value other than one. A 
stride of two will access every other element, while a 
stride of three accesses every third. For instance, imagine 
that arrays vector_a and vector_b consist of complex 
numbers in polar coordinate format such that even ele¬ 
ments are magnitude values and odd elements are angles. 
To multiply corresponding complex values, you would 
multiply the magnitudes and add the angles. The code 
fragment 

el * vvmul 

(&vector_a[0], 2, 

&vector_b[0], 2, 

&vector_c[0], 2, len); 
e2 * vvadd 

(&vector_a[l], 2, 

&vector_b[l], 2, 

&vector_c[l], 2, len); 

creates vector_c which is the product of corresponding 
complex values in vector_a and vector_b. 

The library's scaler-vector functions provide improved 
performance because the scaler is retained on the FPU 
stack rather than being reloaded along with each element 
of the input vector. A typical use of such a function would 
be normalizing a vector. 

Since subtraction and division are not commutative (i.e., 
x-y != y-x and x/y /= y/x), two scaler-vector versions of 
subtraction and division are provided —one in which the 
scaler is the first operand and one in which the scaler is 
the second operand. 

Two functions are exceptions to the rule that only 
floating-point values are manipulated. The itof and ftoi 
functions convert elements from 32-bit integer format to 
32-bit floating-point and vice-versa. 

The library includes two sets of functions that find the 
sine and cosine of elements of a vector. The choice of 
which function to use depends on the coprocessor on 
which the function is running. The vsin387 and vcos387 
functions take advantage of the native sine and cosine 
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instructions added to the instruction set of the 80387. If 
the coprocessor does not have these instructions, then 
the generic functions vsin and vcos, which do not use 
the FSIN and FCOS instructions, should be used. 

The most complex among the functions are the 
cubic spline and Fast Fourier Transform groups. The 
cubic spline and FFT algorithms implemented in this 
library were taken from the book Numerical Recipes by 
Press et al. 

The first step in working with a spline is analyzing 
the set of (x,y) coordinates to create a set of "spline 
parameters.” One spline parameter is created for each 
(x,y) coordinate. Once these parameters are created 
they can be used again and again in evaluating the 
spline. 

The spline suite has three different functions for 
evaluating the spline at points of the user's choosing. 
The simplest is vspvalO, which evaluates the spline at a 
single point. The most general is vspvall, which 
evaluates the spline at a set of given points supplied to 
the function via an input array. If the locations of the 
points to be evaluated are regularly spaced, then 
specifying the starting point and the increment saves 
memory by eliminating the need to store the coor¬ 
dinates. 

The Fast Fourier Transform functions are two-tiered: 
the high-level routines vfftO and vfftl call vbflyO, 
vbflyl , and vbitrev, which provide low-level services. 
vfftO takes complex input to create complex output. 
On the other hand, vfftl takes real valued input to 
create complex valued output for forward transforms 
and vice-versa for inverse transforms. 

The FFT functions, unlike the other functions in this 
library, perform their operations in place. This fact 
creates an additional complication for vfftl: the even 
input elements are in the array in which the real com¬ 
ponents of the spectrum are output, while the odd 
input values are in the array containing the imaginary 
components of the spectrum. 

The following call will transform an array vector_a 
which has 64 real elements into 32 complex frequency- 
spectrum values. The real part of the frequency- 
spectrum values are in the even elements and the im¬ 
aginary parts in the odd elements. □ 

error = vfftl 

(&vector_a [0], 1, 

&vector_a [1], 1, 5); 


loss of precision or range. You have eight data registers at 
your disposal — which is more than the IU has —so it makes 
sense to take advantage of these registers. There are two 
guidelines for doing this: 

• Arrange computations so that intermediate factors can be 
reused 

• Keep any constants used repeatedly in computations in 
registers 

There is an exception to the second guideline. The FPU has 
special instructions to load certain common constants such as 
zero, one, and pi. These instructions are quick, so reloading 
these constants can improve speed by freeing up a register to 
hold some other intermediate result. 

The vsin function of Listing 1 takes advantage of the 
registers by loading as many coefficients of the interpolating 
polynomial as the registers will hold. This is done prior to 
processing any angles, and the coefficients stay there until all 
the input values have been processed. 

Concurrent FPU and IU Execution 

Concurrent execution of the IU and the FPU can maximize 
the benefit of the FPU. Having the IU and the FPU perform 
computations at the same time increases the amount of use¬ 
ful work that can be accomplished in a given time period. 
Since FPU instructions are relatively slow compared to the IU 
instructions, several IU instructions can usually be executed 
before the FPU instruction finishes. The IU can calculate the 
address of the next operand, etc. 
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In the main loop of the sine function of Listing 1, the IU 
maintains the pointers to the array elements and tests the 
flags for conditional branching. The loop consists mostly of FPU 
instructions, but the IU instructions overlap the FPU instruc¬ 
tions to a large extent. 

Synchronization Errors 

Having the FPU and IU execute at the same time can cause 
two types of synchronization problems. The first arises be¬ 
cause the two units share the same instruction stream. After 
the FPU commences execution of an instruction, the IU con¬ 
tinues to read the instruction stream. If the stream contains 
another FPU instruction, further reading of the instruction 
stream must be suspended until the FPU has finished the pre¬ 
vious instruction. If the IU does not wait for the FPU to finish, 
the second FPU instruction will be skipped and the computa¬ 
tions may not be correct. In 80287 and later chips, the FPU 
performs this synchronization automatically for you. The 8087, 
however, does not perform this synchronization, so you must 
insert a FUAIT instruction before each FPU instruction. MASM 
automatically inserts FUAIT instructions unless the program¬ 
mer tells MASM that the code will be executed on an 80287 
or later chip via MASM directives. 

Another kind of synchronization problem can occur if an 
FPU instruction is followed by an IU instruction which accesses 
the same memory location. The two instructions may access 
the memory location out of sequence. There are two cases 
where this is a problem: 


1) where the IU reads or writes a memory location before 
the FPU can write to it - the IU accesses the old value rather 
than the value written by the FPU 

2) where the IU updates a value currently being read from 
memory by the FPU — this causes an incorrect value to be 
read into the FPU. 

You can avoid these synchronization problems through at¬ 
tentive coding. 

Conditional Branching 

Since the FPU and IU share a common instruction stream, 
branching based on operations performed in the FPU requires 
coordination between the IU and the FPU. There is no FPU 
branch instruction. However, the FPU can make tests for cer¬ 
tain conditions, inform the IU of the result, and have the IU 
perform the branch. 

FCOM, FUCOM, FTST, and their variants test numbers in the 
FPU for certain conditions and set the CO, C2, and C3 flags in 
the status word of the FPU accordingly. How does the state of 
these flags control branching? The status word is loaded into 
the AX register of the IU and then loaded into the flags via the 
SAHF instruction. The status word can be loaded into AX in 
one of two ways. First, on all processors the status word can 
be copied to memory and then loaded into AX: 

FSTSW word ptr [temp] 

MOV AX, word ptr [temp] 

SAHF 
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Listing 1 vsin.asm - Compute sine of a vector of angles 


Copyright (C), 

Michael Holzrichter 1992 




All 

lights Reserved 

fid 

piby2 ; Store constants 





fstp 

dword ptr [PIDV2] ; locally 

ti tl e 

VSIN.ASM 

Compute Sine of a Vector of Angles 

fid 

piby4 





fstp 

dword ptr [PIDV4] 


Call 

with: 





vsin (float 

a, int str a, float* b, int n); 

fid 

evenc ; Load constants 





fid 

evend 


Returns: 





b 

[i*str b] 

= sin (a [i*str a]) 

fid 

oddc 


for i = 0 to n-1 

fid 

oddd 


(Angles are 

in radians) 

fid 

piby2 


Destroys: nothing 

mov 

si, [A_0FF] ; Get address of A array 


286 



mov 

di, [B OFF] ; Get address of B array 


287 



mov 

es, [B_SEG] 

.MODEL LARGE 


shl 

word ptr [A STR], 2 ; Compute stride 





shl 

word ptr [B STR], 2 


DATA 









mov 

bx, 4002h 

pi by4 

dq 

3fe921fb54442dl8h ; pi / 4 



pi by2 

dq 

3ff921fb54442dl8h ; pi / 2 

mov 

cx, [N_ELM] ; Get number of elements 

odda 

dq 

1.0000000000000e+000 

cmp 

cx, 0 ; Check vector length 

oddb 

dq 

-1.6666728019714e-001 

jg 

sloop 

oddc 

dq 

8.3358026981354e-003 

jmp 

serror 

oddd 

dq 

-1.9902997970581e-004 







sloop: mov 

ds, [A SEG] 

evena 

dq 

1.0000000000000e+000 

fid 

dword ptr ds : [si ] ; Load angle 

evenb 

dq 

-5.0000000000000e-001 

mov 

ds, [DS SAV] 

evenc 

dq 

4.1666667938232e-002 



evend 

dq 

-1.3761875391006e-003 

ftst 






fstsw 

[FLAGS] 


CODE 



fabs 


FLAGS 

equ 

bp-12 

fadd 

dword ptr [PIDV4] ; Sub pi/4 

DS SAV 

equ 

bp-10 



PIDV4 

equ 

bp-8 

fprem 

; Reduce to 0<=angle<pi/4 

PIDV2 

equ 

bp-4 

fstsw 

ax ; Get FPREM status 

N ELM 

equ 

bp+6 

fsub 

dword ptr [PIDV4] ; ST=reduced angle 

B STR 

equ 

bp+8 



B OFF 

equ 

bp+10 

mov 

al, ah ; AL ~= 0 means odd 

B SEG 

equ 

bp+12 

and 

ax, bx ; AH ~= 0 negative 


A STR 

equ 

bp+14 



A OFF 

equ 

bp+16 

or 

al, al ; Branch to even or odd 


A_SEG 

equ 

bp+18 

jZ 

sodd ; sequence 



PUBLIC 

vsin FPfiPfii 



0 1 2 3 4 5 6 7 






fmul 

x*x pi2 od oc ed ec 


vsin 

FPfiPfii 

PROC 


fid 

x*x x*x pi 2 od oc ed ec 



push 

bp ; Entry sequence 


fmul 

— x*x pi 2 od oc ed ec 



mov 

bp, sp ; Set stack framepointer 


fadd 

— x*x pi 2 od oc ed ec 






fmul 

— x*x pi 2 od oc ed ec 



sub 

sp, 12 


fadd 

— x*x pi 2 od oc ed ec 






fmulp 

— pi2 od oc ed ec 



push 

si ; Save registers 





push 

di 

fmul 

st(0), st(0) 



push 

es 

fid 

st (0) 



push 

ds 

fmul 

st(0), st(5) 





fadd 

st(0), st(6) 



push 

dx 

fmul 

st(0), st(1) 



push 

cx 

fadd 

evenb 



push 

bx 

fmulp 

st(l), st(0) 





fadd 

evena 



mov ax 

, SEG DGROUP ; Get constants segment 





mov [DS SAV], ax 

jmp 

ssignl 



mov ds 

, [DS_SAV] 
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Listing 1 continued 




0 l 2 

3 

4 

5 

6 7 





fid 

x x pi 2 

od 

OC 

ed 

ec 

add 

si, [A STR] 

; Increment pointers 


fmul 

x*x x pi 2 

od 

oc 

ed 

ec 

add 

di, [B STR] 



fid 

x*x x*x X 

Pi 2 

od 

oc 

ed ec 





fmul 

- X*X X 

Pi 2 

od 

oc 

ed ec 

loop 

sloop 

; Repeat until cx is 0 


fadd 

— x*x X 

Pi 2 

od 

oc 

ed ec 





fmul 

- X*X X 

Pi 2 

od 

oc 

ed ec 

fstp 

st 

; Pop constants 


fadd 

- X*X X 

Pi 2 

od 

oc 

ed ec 

fstp 

st 



fmulp 

— x pi 2 

od 

oc 

ed 

ec 

fstp 

st 



fadd 

— x pi 2 

od 

oc 

ed 

ec 

fstp 

st 



fmulp 

— pi 2 od 

oc 

ed 

eb 


fstp 

st 


sodd: 

fid 

st(0) 





fwait 


; Wait for coprocessor 


fmul 

st(0). st(0) 









fid 

st(0) 





xor 

ax, ax 

; Return code is 0 


fmul 

st(0), st(4) 









fadd 

st(0), st(5) 





sexit: pop 

bx 

; Restore registers 


fmul 

st(0), st(l) 





pop 

cx 



fadd 

oddb 





pop 

dx 



fmulp 

St(1). st(0) 









fadd 

odda 





pop 

ds 



fmulp 

st(l), st(0) 





pop 

es 









pop 

di 


ssignl: 

or 

ah, ah ; 

Set sign 

based 

on 

pop 

si 



jz 

ssign2 ; 

quadrant of angle 











mov 

sp, bp 

; Release local memory 


fchs 






pop 

bp 


ssign2: 

mov 

ax. [FLAGS] ; 

Set sign 

based 

on 

RET 

14 

j Return 


sahf 

; 

sign of angle 





jae 

ssave 





serror: mov 

ax, 1 









jmp 

sexit 



fchs 






vsin FPfiPfii 

ENDP 


ssave: 

fstp 

dword ptr es: 

Mi] 

Store result 

END 










; End of File 
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If the code is being executed on an 80287 or later processor, 
the status word can be loaded directly into the AX register. 
(This is the only instruction that permits data to be transferred 
directly between FPU and IU registers.) The following code 
fragment takes advantage of this capability: 

FSTSW AX 
SAHF 

JA label 1 

The sine function of Listing 1 transfers the status word to AX 
by both methods. In the first instance, the FPU tests the sign 
of the number and stores the status word in memory for later 
use. In the second instance, the value is transferred directly 
into AX. 

Two-in-One Instructions 

Another way to maximize perfor¬ 
mance is to use instructions which per¬ 
form two or more useful operations at 
the same time. Operations which can 
be doubled up are: 

• popping the stack along with a basic 
arithmetic instruction 

• accessing a memory operand with a 
basic arithmetic instruction 

• register exchange and division or 
subtraction 

• calculating sine and cosine of a num¬ 
ber at the same time 
The pop form of instructions avoids 

an extra FSTP to pop the stack. For in¬ 
stance, if the value on the stack top is 
no longer needed after being summed 
with another value, then the addition 
operation and the popping of this value 
can be done in one instruction rather 
than two. Rather than use 

FLD dword ptr [F00] ; Load F00 
FADD ST, ST(1) ; Add 

FSTP ST ; Pop ST(0) 

the operations can be combined into 

FLD dword ptr [F00] ; Push F00 

FADDP ST, ST(1) ; Add and pop 

The instructions that have pop versions 
are FST, FADD, FSUB, FSUBR, FMUL, FDIV, 

FDIVR, FCOM, and FUCOM. 

You can avoid a load when one of 
the operands is in memory if that 
operand is not needed for subsequent 
computations. The source operand for 
the FCOM, FADD, FSUB, FSUBR, FMUL, FDIV, 
and FDIVR instructions can reside in a 
register or memory. The following single 
instruction can replace the FLD, FADDP 
pair of instructions to add F00 to the 
value on the stack: 


FADD dword ptr [F00] ; Add F00 

As noted in the description of the subroutine library, subtrac¬ 
tion and division are not commutative. The FPU overwrites the 
destination operand with the result You will sometimes find it 
convenient to overwrite the divisor, at other times, the 
dividend. If there were only one instruction to perform sub¬ 
traction or division, the operands would often need to be 
swapped before performing the operation in order to have the 
desired result. Fortunately, Intel provided two forms of these 
instructions - one in which the divisor is in the destination 
register and one in which the dividend is in the destination 
register. So 

FXCH ST, ST(1) 

FDIV ST, ST(1) 


Table 3 A comparison of execution times, in microseconds, of the 
assembler functions and the equivalent C functions. The tests were run on a 
33MHz 80486 computer using arrays 512 elements in length and a stride of 
one. 

Function 

assembler version 

C version 


speedup 

ftoi 

781 

2764 


3.5 

itof 

532 

1369 


2.6 

vssub 

516 

1477 


2.9 

vsdiv 

534 

2144 


4.0 

svadd 

515 

1477 


2.9 

svsub 

501 

1477 


2.9 

svmui 

532 

1477 


2.8 

svdiv 

1493 

2144 


1.4 

wadd 

829 

1925 


2.3 

wsub 

829 

1926 


2.3 

wmul 

830 

1926 


2.3 

vvdiv 

1732 

2609 


1.5 

vsmnmx 

763 

3480 

4.6 

vamnmx 

840 

4702 


5.6 

vesum 

220 

1288 


5.9 

vsqrt 

1662 

7558 

4.5 

vsin 

3866 

11567 


3.0 

vcos 

3711 

11658 


3.1 

vzero 

281 

1133 


4.0 

vmove 

360 

1305 


3.6 

vabs 

422 

3276 


7.8 

vneg 

422 

1414 

3.4 

vsin387 

5206 

11567 


2.2 

vcos387 

5205 

11658 


2.2 

vsignO 

438 

2741 


6.3 

vsignl 

724 

3783 


5.2 

vdprod 

501 

1928 


3.8 

vsplin 

10190 

17740 


1.7 

vspvalO 

20224 

32421 


1.6 

vspvall 

7934 

16272 


2.1 

vspval2 

10963 

16785 


1.5 

vbitrev 

2790 

3330 


1.2 

vbflyO 

17657 

33456 


1.9 

vbflyl 

4300 

6019 


1.4 

VfftO 

23260 

41883 


1.8 

vfftl 

28833 

47223 


1.6 
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can be replaced with 
FDIV ST, ST(1) 

Multiplication by a Power of Two 

On the 8087 and the 80287, it is often better to use the 
FSCALE function rather than the FMUL function to multiply a 
number by two or a power of two. The factor needs to be an 
integral power of two and this power needs to be in ST(1), 
which means the power must be known or must have been 
computed in advance. If the power must be computed, the 
speed advantage disappears — in this case, incurring the addi¬ 
tional overhead is worthwhile only if this value can be reused 
many times. 

Using IU instead of FPU 

Sometimes it is better not to use the FPU at all. Loading 
numbers into the FPU entails conversion to and from the ex¬ 
tended real format in addition to any manipulation performed. 
This clearly is not necessary if you merely want to copy 
values from one array to another, and if the numbers are con¬ 
tiguous, using the IU string instructions is much faster than 
performing the transfer via the FPU. Also, for some simple 
operations on floating-point numbers where only a few bits in 
the number will be manipulated, the IU is faster than the FPU. 
For example, only the sign bit is accessed when the absolute 
value or negative of a floating-point number is taken. 

Avoid Division 

The last technique is venerable but still important: avoid 
division where possible. The divide instruction is slow com- 
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pared to multiplication (73 clocks vs. 16 clocks on an 80486). If 
you need to divide many numbers by the same factor, divide 
that factor into one and then multiply the numbers by the 
result. If the divisor cannot be reused, then you will either 
have to find other ways to avoid division or suffer the perfor¬ 
mance hit. 

Timing Results 

Table 3 lists the execution times of the functions in this 
library along with the times of equivalent C code. The C code 
was compiled using the Zortech C++ V2.0 compiler. The Zor- 
tech global optimizer and the -/ option to generate inline FPU 
instructions were used to produce the fastest output. The as¬ 
sembler code was faster in each case, sometimes significantly. 
These results show that if an application performs intensive 
floating-point computations, it is well worth the effort to code 
the critical parts in assembly. 

Looking at the times for the various arithmetic functions, 
the impact of the divide instruction is readily apparent. 
Division is much slower than addition, subtraction, or multi¬ 
plication. As a result the svdiv and vvdiv functions are less 
than half as fast as svmul and vvwul. However, vsdiv does 
not have this problem. It avoids all but one division by multi¬ 
plying the values of the vector with the inverse of the divisor. 

vsmnmx, vamnmx, and vesum produce scaler results. Their 
performance shows the benefits of keeping intermediate 
results in registers until all of the input elements have been 
processed. These functions illustrate the advantage of avoiding 
transfers between registers and memory. 

The vzero, move, vabs, vneg, vsignO, and vsignl func¬ 
tions use the IU rather than the FPU. For the vabs, vsignO, and 
vsignl functions, the speed-up is dramatic. These functions 
manipulate only the sign bit through Boolean IU instructions. 


Conclusion 

Timing tests indicate that using the FPU significantly improves 
performance in floating-point computations. The complete source 
to the library presented here is on the code disk and will be 
freely distributed (see page 58 for information on source code 
availability). I am interested in feedback regarding bugs, com¬ 
ments, uses, and enhancements to this library. 
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A Drag-and-Drop Custom 
Edit Control 

Part 2 


Ron Burk 


In the October issue (vol. 3, no. 10), I outlined the details of the behavior of a 
drag-and-drop edit control (an edit control that lets you use the mouse to move and 
copy selected text, rather than resorting to the clipboard). The earlier article 
described how to calculate the client coordinates of the rectangles that enclose 
whatever text the user has selected, and noted some of the problems associated 
with drag scrolling. This article examines the problems of scrolling and shows how I 
solved them. I intended this to be a two-part article, but in spite of the fact that less 
important parts of the code appear only on the code disk, I underestimated both the 
size of the code and the amount of description required, so the series will conclude 
with Part 3 next month (December: vol. 3, no. 12). 

Scrolling Review 

Last month's article showed that you can calculate the exact position of selected 
text in an edit control and, by using the current position of the text caret, calculate 
the current amount of scrolling in effect The code presented last month calculated 
VDrag and HDrag, the current amounts of vertical and horizontal scrolling, measured 
in device coordinates. At the moment the user has finished selecting text with the 
mouse or keyboard, the caret is guaranteed to be visible in the client area of the 
edit control, so the algorithm is guaranteed to work. Unfortunately, things get com¬ 
plicated from here. 

Suppose you have just selected text and you have calculated correct values for 
VDrag and HDrag. Now, what happens if the user uses the horizontal or vertical scroll 
bar to scroll the text? If the caret is still visible in the client area, the previous 
algorithm works, but what if the user scrolls the text caret out of view? dndedit has 
to handle these cases, since it must revise the coordinates of the selected text every 
time the selected text moves due to scrolling. In fact, the user could scroll the 
selection completely out of view and then back, so dndedi t has to know where the 
selection is, even when it isn't on the screen I 


Ron Burk has a BSEE from the University of Kansas and has been a programmer for 
the past 10 years. You may contact him at Burk Labs, P.O. Box 3082, Redmond, WA 
98073-3082. CIS: 70302,2566. BIX: rlburk; internet: ronb@rdpub.com (". . . 

luunetlrdpublronb") 
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At this point, the documented API for the edit control is of 
little use. This is simply a problem that the edit control was 
not designed to handle, so you either have to give up or 
resort to undocumented techniques. Since I did not want to 
have to write my own edit control from scratch, I chose to 
look for an undocumented method. 

Edit Control Internals 

Once I figured out that it was impossible to obtain the 
scrolling parameters I needed through documented means, I 
started poking around the edit control’s internal information. 
First, I used Jeffrey Richter's Voyeur utility to examine an edit 
control. Voyeur showed that each edit control window 
defined several “extra” bytes (the bytes accessible via Get- 
UindowUordO) for storing information. These bytes did not 
change as I scrolled the window, so I assumed they did not 
have the information I needed. 

The edit control I examined had six extra bytes and all 
started out equal to zero except the first two. My next guess 
was that the first two extra bytes were an offset into local 
memory. Following this theory, I dumped about 100 bytes at 
that location, scrolled the edit control window, then dumped 
the same 100 bytes again, looking for changes. Success! Ex¬ 
perimentation showed that the word at offset 0x12 contains 
the number of lines of vertical scrolling currently in effect and 
the word at offset 0x16 contains the amount of horizontal 
scrolling in device coordinates. 

Originally, I thought I also needed to know the maximum 
vertical and horzontal scroll positions of the edit window. This 
need arose from the fact that when the user drag-scrolled to 
the far bottom or right of the control, l kept sending drag 
messages even though no further dragging in that particular 
direction was possible. The result was an annoying flicker as 
various things on the screen got repainted. 

I changed my mind about needing this information, be¬ 
cause I decided to make dndedit scrolling behave more like 
Word for Windows and less like the standard edit control. In 
the vertical direction, the standard edit control lets you scroll 
off all but the last line. You can easily obtain the number of 
lines in the edit control with the EM_LINEC0UNT message and 
use it to calculate the maximum distance the control will 
scroll vertically. 

Horizontal scroll behavior is a more complex. Through ex¬ 
perimentation, I determined that the maximum horizontal 
scroll range is equal to the width of the largest line that ever 
existed in the edit control during its life. It would be extreme¬ 
ly tedious to maintain this number by intercepting all the 
messages that could change the length of a line, so while I 
was poking around in the edit control's internal structure, I 
discovered that offset 0x3A contains, in device coordinates, the 
length of the longest line that ever existed during the control's 
lifetime. 

The reason I no longer needed to know the maximum 
scroll ranges is that I decided to restrict the maximum scroll 
ranges myself. The problem with the standard edit control is 
that it will happily let you horizontally scroll off to the left all 
of the visible text, and scroll all but one line of visible text in 
the vertical direction. This leaves the user staring at a blank or 
nearly blank rectangle, so l decided to prevent vertical scrolling 
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Figure 1 Code to access internal edit control structure 


function SecretEditWord(HWindow : HWND; Offset : Word) : Word; 
var 

DataSegment, DataOffset 
: Word; 

LongPointer 
: longint; 

begin 

DataSegment := GetWindowWord(HWindow, GWW_HINSTANCE) OR $0001; 
DataOffset := GetWindowWord(HWindow, 0); 

LongPointer := (longint(DataSegment) shl 16) OR (DataOffset + Offset); 
DataOffset := (PInteger(LongPointer)) /v ; 

SecretEditWord := DataOffset; 

end; 


once the final line is about halfway 
down the screen and prevent horizontal 
scrolling once the longest visible line is 
half a window from disappearing. I find 
the results easier to use than the stand¬ 
ard edit control behavior. 

That still left me with the need to 
access two fields in the edit control’s in¬ 
ternal data structure. Figure 1 shows 
the TPW version of SecretEditWord(), 
which I created to obtain the desired 
information. Note that the code deter¬ 
mines the correct data segment from 
the instance handle, which is one of the 
window words each window contains. 

Drag Acceleration 

Another aspect of scrolling that I decided to tailor was the 
speed of horizontal drag scrolling. Under Word for Windows 
v2.0, if you select some text, grab it with the mouse, and drag 
it downwards, the window begins scrolling very quickly. In 
fact, for smaller windows, the text scrolls so quickly you will 
find it difficult to stop in time when you spot the position you 
were trying to drag to. 

After a few moments' thought and experimentation, I ar¬ 
rived at an algorithm for a more pleasing drag effect. I decided 
I wanted scrolling to start slow, but then begin to accelerate. 
That worked better than scrolling at a constant speed, but the 
control had achieved its top scrolling speed when the destina¬ 
tion text was still a long way off, so it was once again difficult 
to stop in time. After a little more thought and experimenta¬ 
tion, I noticed that I could usually spot my target approaching, 
but because I had to jerk the mouse up quickly to stop the 
scrolling, I often overshot and started scrolling back in the 
wrong direction. 

This observation led to my current algorithm. Not only do I 
accelerate drag scrolling up to a maximum velocity, but when¬ 
ever the mouse moves, I decrease the amount of acceleration 
by a fixed amount. Thus, to scroll down as quickly as possible, 
I pull the mouse down and hold it still. Then, as I notice that 
the target is getting closer, I start to move the mouse up. The 
mouse movement slows down the scroll speed, making it 
much easier to stop at the desired position. 

I have found this algorithm pleasing to use, but you could 
experiment with other variations on the basic approach of 
making the scroll speed some function of mouse position and 
mouse movement. Currently, I only implement drag accelera¬ 
tion in the vertical direction, since most edit control text is not 
very wide. This should probably be extended to behave 
similarly in the horizontal direction, however. 

Horizontal Scroll Correction 

One final scrolling problem deserves consideration. As I 
mentioned earlier, I do not want to allow text to completely 
disappear when you scroll horizontally to the left. Suppose 
that you have a screen with one long line and a number of 
short lines. If you are dragging text to the end of the long line, 
the control has to scroll to the end of the line, even if that 
means that the short lines scroll out of sight. However, if you 


then change your mind and decide you want to drop your 
text at the end of the short line immediately following the 
long line, you will just move the mouse down a line. At this 
point the text caret should be at the end of the short line, but 
the short line itself is not visible. 

To solve this problem, I chose to follow the example of 
Word for Windows. If you are dragging text and you place the 
mouse on the end of a line that has scrolled off to the left, I 
“jump scroll" the window so that the end of the line is imme¬ 
diately visible. The function PlaceCaret() calculates where to 
place the text caret when drag scrolling is called. Since it al¬ 
ready has to calculate character and line lengths, I made it 
also calculate the amount of “jump scrolling" needed, if any, 

FullShot 

The Complete Image Capture | 

Program for Microsoft® Windows™ I 

FullShot is perfect for images you want to ’ 
include in manuals, interface design, training 
handouts, presentations, or marketing materials. | 
Q Capture images using hotkeys or the FullShot icon ? 
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Q Translate color images to gray patterns or black & white 
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Figure 2 Code to handle mouse movement and simulated scroll events 


static 

int MouseEventIsPending(DNDEDIT *this) 

( 


MSG 


Msg; 


return PeekMessage(&Msg, this->HWindow, WM_LBUTTONUP, 
WM_LBUTTONUP, PM_NOREMOVE) 

|| PeekMessage(&Msg, this->HWindow, WM_MOUSEMOVE, 
WM_MOUSEMOVE, PM_NOREMOVE)J 

) 


static 

void WMDndMouseMove(DNDEDIT ‘this, MESSAGE FAR ‘Message) 

( 

int i, MoveCaret; 

long NewTick; 

POINT CaretPos; 

MoveCaret * FALSE; 
if(!this->Grabbed) 

{ 

DefWndProc(this, Message); 

if(DndlnSelection(this, MAKEPOINT(Message->lParam))) 
this->Cursor = DndGrabCursor; 

else 

this->Cursor * 0; 

) 

else 


if(Message->lParam != -1) /* if "real" mouse move */ 
{ 

MoveCaret = TRUE; 

DefWndProc(this, Message); 
if(DndPlaceCaret(this, &CaretPos)) 

{ 

if(this->Drag ■* 0) 

( 

this->DragAccelerate * DRAG_INTERVAL; 

this->DragSize = 1; 

this->Drag = abs(GetTickCount())+l; 

) 


else 


) 

else 


{ 

if(this->DragSize > 1) 

this->DragSize = MIN(1, this->DragSize / 3); 

else 


this->DragAccel erate = MIN(DRAG_INTERVAL, 
thi s->DragAccelerate+10); 


1 


this->Drag * 0; 

) 

if((this->Drag != 0) && IMouseEventlsPending(this)) 

{ 

NewTick = abs(GetTickCount()); 

if( abs(NewTick-this->Drag) > this->DragAccelerate) 

{ 

thi s->DragAccelerate = this->DragAccelerate *6/7; 
this->Drag » NewTick + 1; 

if(this->ScrollCorrection != 0) 

this->HDrag » -(this->ScrollCorrection / this->FontWidth); 
if(this->DragAccelerate < 10) 

this->DragSize = MIN(NWindowLines(this), this->DragSize+l); 
Scroll (this, this->HDrag, this->VDrag * this->0ragSize); 

MoveCaret = FALSE; /* because scroll did it */ 

) 

PostMessage(this->HWindow, WM_MOUSEMOVE, Message->wParam, -1L); 

} 


) 

if(MoveCaret) 

SetCaretPos(CaretPos.x, CaretPos.y); 

) 


and store the value in an instance vari¬ 
able called ScrollCorrection. 

I had originally intended Place- 
Caret () to be an independent function 
that simply calculated the most 
reasonable position for the text caret 
during drag scrolling (remember that 
the text caret has to show where the 
text would be dropped if the user 
released the mouse button). Rather 
than an independent function, Place- 
Caret () ended up calculating a host of 
scrolling-related information. Besides 
ScrollCorrection, it also calculates 
HDrag and VDrag, which take on the 
values -1, 0, or 1 to indicate whether 
negative, positive, or no dragging is indi¬ 
cated by the current mouse position. I 
was unable to find a better way to 
divide the labor, so PlaceCaret() be¬ 
came my dumping ground for 
problems. I will present the code to 
PlaceCaret() next month. 

Implementing Scrolling 

Having finally covered all the con¬ 
cepts behind dndedit' s scrolling, I can 
now present the code that implements 
the concepts. Figure 2 shows the C code 
that handles the UM_M0USEM0VE mes¬ 
sage, which is pivotal to drag scrolling. 
Note that l wrote C code to mimic the 
structure of the TPW object-oriented 
code. My window function passes to 
each message function a pointer to the 
structure of instance data (of type 
DNDEDIT) and a pointer to a structure 
that contains the message parameters 
and space for a result parameter. 

The instance variable Grabbed indi¬ 
cates whether text is currently 
"grabbed” (the user enters the grabbed 
state by pressing the left mouse button 
while the mouse is over highlighted 
text). If the edit control is not in the 
grabbed state, then UMDndMouse- 
Move()'s job is simple. It merely has to 
let the previous window procedure 
process the message, then call In- 
Selection() (described last month) to 
decide whether the mouse cursor 
should be the ordinary text I-beam or a 
left-pointing arrow (to indicate it is over 
grabbable text). 

If the edit control is in the grabbed 
state, then the real work begins. The 
code checks first to see if this is a real 
UM_M0USEMOVE or a fake one. I Post- 
Message() UM_M0USEM0VE messages 
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with an IParam of -1 to simulate scroll 
events. I reused the UM_MOUSEMOVE mes¬ 
sage number both because the two 
cases require similar code and because 
I did not want to face the hassle of 
picking a Windows message number 
that future versions of the edit control 
would never use. 

In the case of a real mouse move¬ 
ment, I call PlaceCaretf) to position 
the text caret correctly after the default 
window handler returns. PlaceCaret() 


returns TRUE if it finds that the mouse 
lies outside the text formatting rec¬ 
tangle, indicating that the user is trying 
to drag-scroll the selected text. If 
PlaceCaretf) returns TRUE, then it is 
time to either begin scrolling or (if scroll¬ 
ing was already in effect) decrease the 
speed of scrolling. If PlaceCaretf) returns 
FALSE, then scrolling can be turned off. 

Three variables control drag-scrolling 
and vertical drag-scrolling speed. Drag is 
either zero to indicate that scrolling is 


Figure 3 EM_UNESCROLL handler 


static 

int DndClipScrollfDNDEDIT *this, int Vertical, int Horizontal) 

{ 

long NewVScroll, NewHScroll, MaxVScroll, MaxHScroll; 

int MaxVScrollLines, Changed; 

Changed * FALSE; 

NewVScroll ■ MAX(this->VScroll+Vertical, 0); 

NewHScroll = MAX(this->HScroll+Horizontal, 0); 

Changed * (NewVScroll != this->VScroll) 

|| (NewHScroll != this->HScroll); 
this->HScroll = NewHScroll; 
this->VScroll = NewVScroll; 
return Changed; 

) 

static 

void EMDndLineScrol1(DNDEDIT *this, MESSAGE FAR ‘Message) 

( 

int LineScroll, CharScroll, Changed; 

POINT CaretPos; 

if(this->Grabbed) 

{ 

Changed ■ FALSE; 

LineScroll ■ LOWORD(Message->lParam); 
if(LineScroll > 0) 

f 

LineScroll = MAX(0, MIN(LineScroll, GetNumLines(this) 

-(this->VScrol1/this->FontHeight) 

- (NWindowLines(this)/2))); 

Message->lParam = (Message->!Param&0xFFFF0000)|LineScroll; 

) 

CharScroll « HIWORD(Message->lParam); 

Changed = DndClipScroll(this, LineScroll*this->FontHeight, 

CharScroll*this->FontWidth); 

if(Changed) 

{ 

DndShowCaret(this, FALSE); 

DefWndProc(this, Message); 

DndPlaceCaret(this, &CaretPos); 

SetCaretPos(CaretPos.x, CaretPos.y); 

DndShowCaret(this, TRUE); 

} 

else 

{ 

thi s->DragAccel erate = DRAGJNTERVAL; 
this->DragSize = 1; 

) 

} 

else 

DefWndProc(this, Message); 

) 
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Figure 4 

WMVSCROLL and WM_HSCROLL functions 

procedure 

TDndEdit.WMHScroll(var Message : TMessage); 

begin 


DefWndProc(Message); 

HScroll 

:= SecretEditWord(HWindow, $16); 

end; 


procedure 

TDndEdit.WMVScroll(var Message : TMessage); 

begin 


DefWndProc(Message); 

VScroll 

:= SecretEditWord(HWindow, $12) * FontHeight; 

end; 



not in effect, or else it contains the timer tick (obtained from 
GetTickCountf)) of the last simulated scroll event. Drag- 
Accelerate contains the minimum number of ticks that must 
elapse before the code will emit another EM_LINESCROLL 
event to scroll the window. Finally, DragSize controls the 
number of lines to scroll at a time. This extra complication 
was necessary because, without it, it takes forever to scroll 
past a large number of lines; scrolling one line at a time just 
isn’t fast enough. 

Whether the mouse movement was real or faked, if Drag 
is non-zero then dragging is in effect and the code has to 
decide whether to stop scrolling, emit an EM_LINESCROLL 
event, or PostMessagef) another fake mouse move. 

As discussed last month, the messages posted via Post- 
Message () get placed ahead of real input events, so the code 

C Communications Toolkit 
/Windows 

Now you can add professional serial communications to any C 
Windows application! C Communications Toolkit makes it fast 
and easy. You don’t need to spend months writing, testing and 
debugging low-level device support, file transfer protocols and 
CRC routines. 

Ease of Use and Rapid Application Develop¬ 
ment is the Name of the Game! 

Not until now has serial communications been easy under Windows! C Com¬ 
munications Toolkit/Windows handles all the low-level interaction with the 
Windows driver — even in 386 Enhanced Mode! Just initialize the port and 
make I/O calls using functions with intuitive names like c_putc(), c_printf(), 
and c_getc(). 

Flexibility 

Build terminal programs, file transfer routines. Control modems and devices 
like industrial equipment and laboratory apparatus. With C Communications 
Toolkit/Windows the communications part of the application is taken care of. 

File Transfer 

To send a file, takes just two function calls. One to queue the file, one to send 
it. And we offer the widest range of protocols: 

Single file: ASCII, XMODEM, XMODEM-CRC, XMODEM-lk. 

Multi-file: YMODEM, YMODEM-g (for error-free links), 

KERMIT (with run-length encoding and 8th—bit prefixing extensions). 

ZMODEM (for speed and data integrity in harsh environments). 

Documentation 

Over 200 functions. 600-page manual with 100 pages of Toolkit tutorial 
(build a powerful terminal program in easy stages), 125 pages of serial com¬ 
munications background and many example programs. Highly compatible 
with C Communications Toolkit/DOS, and C Communications Toolkit/Ex¬ 
tended DOS. 


has to call the helper function Mouse- 
EventlsPendingf) to see if the user 
has released the mouse button (drop¬ 
ping the text) or moved the mouse. If 
that is the case, the code must avoid 
posting another fake mouse move so 
that the real message can come 
through. If not, then the code generates 
an EM_LINESCR0LL event if it is time 
and then posts another fake mouse 
move message. 

At the end of everything, UMDnd- 
MouseMovef) sets the caret position. It 
uses the variable MoveCaret to avoid 
doing so if other code has already set 
the caret. This makes for a nicer display, since redrawing the 
caret unnecessarily can cause flicker. 

EMLINESCROLL 

Figure 3 shows the C code that handles the EM_LINESCR0LL 
event. If Grabbed is non-zero, then this event was generated 
by UMDndMouseMove(). Most of the code in this function is cos¬ 
metic. it checks to determine whether this scroll event would 
actually cause any scrolling movement and, if not, avoids 
passing the message on to the default handler, since the 
result would be an annoying flicker. The code also has to limit 
the amount of vertical scrolling. 

EMDndLineScroll () also handles placing the caret if it does 
have to scroll the window. If the window scrolls, the caret has 
to be repositioned. UMDndMouseMove() could call Place- 
Caret () itself after emitting the EM_LINESCR0LL message, but 
this would again cause an annoying flicker of the text caret if 
the user were to drag the window all the way to the end and 
keep dragging. 

WMJSCROLL/WMHSCROLL 

Figure 4 contains the TPW code to handle MJSCROLL and 
UM_HSCR0LL events, both of which must access the edit 
control’s internal data structure to update vscroll and H- 
Scroll. A little thought shows this is actually unnecessary 
most of the time. MJSCROLL and UM_HSCR0LL occur only if 
the user clicks on the scroll bars (if they are present). VScroll 
and HScroll must be correct only when the user has selected 
some text. Most users will not select text, then use the scroll 
bars to look for the destination —the whole point of the new 
drag-and-drop feature is to avoid having to do that, since you 
drag the selected text with you while you look. 

Nevertheless, since manually scrolling the window after select¬ 
ing text is a perfectly legal, if not generally, useful operation, 
dndedit has to handle it correctly. It is a pity to have to resort to 
undocumented methods to handle such a minor problem, though. 


Supports: Borland C++, Microsoft C/Quick C for Windows, Turbo C++ Watcom C. 
Full source code included — No run-time royalties. 30-day warranty. 
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Summary 

This article has covered the details of scrolling, which 
turned out to be the most difficult portion of implementing 
dndedit. Next month, I will present PlaceCaretf), wrap up 
some loose ends, and discuss some interesting bugs I dis¬ 
covered in dndedit, Microsoft Knowlege Base code, and in 
Windows itself! □ 
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The Precision of IEEE 754 

Wei-Chiang Lee 


How many significant digits does the IEEE 754 short real format for float¬ 
ing-point numbers really have? A controversy in the pages of Windows/DOS 
Developer's Journal over this question prompted me to try to prove the 
correct answer. Is it six (as Scott Ladd asserts in the June 1991 issue), seven 
(as Thad Smith III claims in a letter in the December 1991 issue), or "six or 
seven" (Richard Starz, in the book 8087 Applications and Programming for 
the IBM PC and Other PCs, quoted by editor Ron Burk in his response to Thad 
Smith's letter)? I thought it would be easy to find out; I was mistaken. 

Let me first briefly describe the floating-point number representation. A 
32-bit floating-point number can be broken into a sign bit, 8 exponent bits, 
and 23 mantissa bits. The sign bit obviously represents the sign of the num¬ 
ber. The 23 mantissa bits together with the implied leading bit represent a 
fractional binary number between 1.0 and 2.0. The eight exponent bits are 
the index of 2 in the range of -128 and +127. Thus 

v = s * m * 2* 

where 

v is the real number being represented, 
s is the sign: +1.0 or -1.0, 
m is the mantissa: 1.0 <= m < 2.0, and 
e is the exponent: -128 <= e <= +127 

s and m plus the implied leading bit actually make up a 2’s complement 
number between 1.0 and 2.0. 


Wei-Chiang Lee received an MS in Electrical Engineering from California State 
University, Long Beach. He currently works for Momentum Data Systems on 
the design and coding of digital Signal Processing so/tware for MS Windows, 
Macintosh, and Sun computers. He may be contacted at 11571 Carnation 
Circle, Fountain Valley, CA 92708. 


Windows/DOS Developer's Journal — Page 43 


November 1992 




















Using the quick approximation formula -(number of bits in 
mantissa) * log(2) — with a value of 24 for the mantissa, Thad 
Smith arrives at the answer of 7.2 significant digits. However, 
the number of bits in the mantissa should be 23 despite the 
24th implied leading bit, because this bit is determined by the 
sign of the number and thus does not increase the number of 
permutations of the mantissa. Therefore the estimate should 
be 23 * log(2), approximately 6.92 significant digits. Even this, 
however, does not convincingly prove the case, so the 
remainder of this article presents evidence that the 32-bit 
floating-point number format does not always have seven sig¬ 
nificant digits. 


Listing 1 


linclude <stdio.h> 
linclude <math.h> 
linclude <float.h> 

Idefine SIGDIG 7 


main () { 

int index2, indexlO; 

unsigned long int noPts2, noPtslO, noRepres; 
double intervalMin, intervalMax; 


/* Print heading. */ 

printf ("X's denote ranges where 32-bit IEEE failed to meet %d " 
"significant digits.\n\n", SIGDIG); 


printf ("lower limit of the 

upper limit of the 

") 

printf ("number of 

number of 

#2\n"); 


printf ("octave range 

decade range 

") 

printf ("points in 

points in 

—\n"); 


printf (" 



") 

printf ("decimal 

IEEE 

#10\n"); 


printf (" 



") 

printf ("number 

number 

^n\n"); 


noRepres * 0; 





for (indexlO * -37; indexlO <■ 38; indexlO++) { 

/* Find index2 where 2 / 'index2 < lO^indexlO. */ 
if (indexlO > 0) { 

index2 * indexlO * log (10.0) / log (2.0); 

} else { 

index2 - indexlO * log (10.0) / log (2.0) - 1; 

} 


intervalMin - pow (2.0, index2); 

intervalMax * pow (10.0, indexlO) * (1.0 - pow (10.0, - SIGDIG)); 


noPtslO - 1 + 

(intervalMax - intervalMin) * pow (10.0, SIGDIG - indexlO); 
noPts2 ■ pow (2.0, 23) * (intervalMax / intervalMin - 1.0); 

printf ("%.141e %.141e %101u %101u %4.21f %c\n", 
intervalMin, intervalMax, noPtslO, noPts2, 

(double) noPts2 / noPtslO, (noPtslO > noPts2) ? 'X' : ' '); 


if (noPtslO > noPts2) { 

noRepres +■ noPtslO - noPts2; 

} 

} 

printf ("\n%lu real numbers cannot be represented by floating point 
numbers\n", 

noRepres); 

} 

/* End of File */ 


The Meaning of Significant Digits 

Loosely speaking, in order for the floating-point number 
format to have S significant decimal digits in a given range, 


Figure 1 

X's denote ranges where 32-bit IEEE failed to meet 7 significant digits. 

lower limit of the 

upper limit of the 

number of 

number of #2 

octave range 

decade range 

points in 

points in — 



decimal 

IEEE 

#10 



number 

number 


9.40395480657830e-038 

9.99999900000000e-038 

596045 

531689 

0.89 X 

7.52316384526264e-037 

9.99999900000000e-037 

2476836 

2761763 

1.12 

6.0185310762101le-036 

9.99999900000000e-036 

3981468 

5549356 

1.39 

9.62964972193618e-035 

9.99999900000000e-035 

370350 

322619 

0.87 X 

7.70371977754894e-034 

9.99999900000000e-034 

2296280 

2500426 

1.09 

6.16297582203916e-033 

9.99999900000000e-033 

3837024 

5222685 

1.36 

9.86076131526265e-032 

9.99999900000000e-032 

139238 

118450 

0.85 X 

7.88860905221012e-031 

9.99999900000000e-031 

2111390 

2245214 

1.06 

6.31088724176809e-030 

9.99999900000000e-030 

3689112 

4903670 

1.33 

5.04870979341448e-029 

9.99999900000000e-029 

4951290 

8226740 

1.66 

8.07793566946316e-028 

9.99999900000000e-028 

1922064 

1995984 

1.04 

6.46234853557053e-027 

9.99999900000000e-027 

3537651 

4592132 

1.30 

5.16987882845642e-026 

9.99999900000000e-026 

4830121 

7837318 

1.62 

8.27180612553028e-025 

9.99999900000000e-025 

1728193 

1752595 

1.01 

6.61744490042422e-024 

9.99999900000000e-024 

3382555 

4287896 

1.27 

5.29395592033938e-023 

9.99999900000000e-023 

4706044 

7457022 

1.58 

8.47032947254300e-022 

9.99999900000000e-022 

1529670 

1514911 

0.99 X 

6.77626357803440e-021 

9.99999900000000e-021 

3223736 

3990791 

1.24 

5.42101086242752e-020 

9.99999900000000e-020 

4578989 

7085640 

1.55 

8.67361737988404e-019 

9.99999900000000e-019 

1326382 

1282797 

0.97 X 

6.93889390390723e-018 

9.99999900000000e-018 

3061106 

3700648 

1.21 

5.55111512312578e-017 

9.99999900000000e-017 

4448884 

6722963 

1.51 

8.88178419700125e-016 

9.99999900000000e-016 

1118215 

1056124 

0.94 X 

7.10542735760100e-015 

9.99999900000000e-015 

2894572 

3417307 

1.18 

5.68434188608080e-014 

9.99999900000000e-014 

4315658 

6368785 

1.48 

9.09494701772928e-013 

9.99999900000000e-013 

905052 

834763 

0.92 X 

7.27595761418343e-012 

9.99999900000000e-012 

2724042 

3140605 

1.15 

5.82076609134674e-011 

9.99999900000000e-011 

4179233 

6022909 

1.44 

9.31322574615479e-010 

9.99999900000000e-010 

686774 

618590 

0.90 X 

7.45058059692383e-009 

9.99999900000000e-009 

2549419 

2870389 

1.13 

5.96046447753906e-008 

9.99999900000000e-008 

4039535 

5685139 

1.41 

9.53674316406250e-007 

9.99999900000000e-007 

463256 

407484 

0.88 X 

7.62939453125000e-006 

9.99999900000000e-006 

2370605 

2606507 

1.10 

6.10351562500000e-005 

9.99999900000000e-005 

3896484 

5355285 

1.37 

9.76562500000000e-004 

9.99999900000000e-004 

234375 

201325 

0.86 X 

7.81250000000000e-003 

9.99999900000000e-003 

2187500 

2348809 

1.07 

6.2 5000000000000e-002 

9.99999900000000e-002 

3750000 

5033163 

1.34 

5.OOOOOOOOOOOOOOe-001 

9.99999900000000e-001 

5000000 

8388606 

1.68 

8.OOOOOOOOOOOOOOe+000 

9.99999900000000e+000 

2000000 

2097150 

1.05 

6.40000000000000e+001 

9.99999900000000e+001 

3600000 

4718590 

1.31 

5.12000000000000e+002 

9.99999900000000e+002 

4880000 

7995390 

1.64 

8.192OOOOOOOOOOOe+003 

9.99999900000000e+003 

1808000 

1851390 

1.02 

6.55360000000000e+004 

9.99999900000000e+004 

3446400 

4411390 

1.28 

5.24288000000000e+005 

9.99999900000000e+005 

4757120 

7611390 

1.60 

8.38860800000000e+006 

9.99999900000000e+006 

1611392 

1611391 

1.00 X 

6.71088640000000e+007 

9.99999900000000e+007 

3289113 

4111390 

1.25 

5.36870912000000e+008 

9.99999900000000e+008 

4631290 

7236390 

1.56 

8.58993459200000e+009 

9.99999900000000e+009 

1410065 

1377016 

0.98 X 

6.87194767360000e+010 

9.99999900000000e+010 

3128052 

3818422 

1.22 

5.49755813888000e+011 

9.99999900000000e+011 

4502441 

6870179 

1.53 

8.79609302220800e+012 

9.99999900000000e+012 

1203906 

1148134 

0.95 X 

7.03687441776640e+013 

9.99999900000000e+013 

2963125 

3532319 

1.19 

5.62949953421312e+014 

9.99999900000000e+014 

4370500 

6512551 

1.49 

9.00719925474099e+015 

9.99999900000000e+015 

992800 

924616 

0.93 X 

7.20575940379279e+016 

9.99999900000000e+016 

2794240 

3252923 

1.16 

5.76460752303424e+017 

9.99999900000000e+017 

4235392 

6163305 

1.46 

9.22337203685478e+018 

9.99999900000000e+018 

776627 

706338 

0.91 X 

7.37869762948382e+019 

9.99999900000000e+019 

2621302 

2980074 

1.14 

5.90295810358706e+020 

9.99999900000000e+020 

4097041 

5822245 

1.42 

9.44473296573929e+021 

9.99999900000000e+021 

555267 

493175 

0.89 X 

7.55578637259143e+022 

9.99999900000000e+022 

2444213 

2713621 

1.11 

6.04462909807315e+023 

9.99999900000000e+023 

3955370 

5489178 

1.39 

9.67140655691703e+024 

9.99999900000000e+024 

328593 

285008 

0.87 X 

7.73712524553363e+025 

9.99999900000000e+025 

2262874 

2453412 

1.08 

6.18970019642690e+026 

9.99999900000000e+026 

3810299 

5163917 

1.36 

9.90352031428304e+027 

9.99999900000000e+027 

96479 

81720 

0.85 X 

7.92281625142643e+028 

9.99999900000000e+028 

2077183 

2199302 

1.06 

6.33825300114115e+029 

9.99999900000000e+029 

3661746 

4846280 

1.32 

5.07060240091292e+030 

9.99999900000000e+030 

4929397 

8155002 

1.65 

8.11296384146067e+031 

9.99999900000000e+031 

1887036 

1951148 

1.03 

6.49037107316854e+032 

9.99999900000000e+032 

3509628 

4536087 

1.29 

5.19229685853483e+033 

9.99999900000000e+033 

4807703 

7767261 

1.62 

8.30767497365572e+034 

9.99999900000000e+034 

1692325 

1708810 

1.01 

6.64613997892458e+035 

9.99999900000000e+035 

3353860 

4233165 

1.26 

5.31691198313966e+036 

9.99999900000000e+036 

4683088 

7388608 

1.58 

8.50705917302346e+037 

9.99999900000000e+037 

1492940 

1472152 

0.99 X 

849124 real numbers cannot be represented by floating point numbers 
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say between 1.0 and 9.0, Nf, which is the number of possible 
unique floating-point numbers in the range, must be greater 
than Nr, which is the number of unique real numbers at S 
significant decimal digits. For example, for a one-significant¬ 
digit integer in the range between 1 and 9 inclusive, Nr is 9. 
For a 3-bit binary number, Nf is 8 and therefore cannot repre¬ 
sent a one-significant-digit integer; that is, it cannot uniquely 
represent all nine integer numbers at one-significant-digit 
precision. On the other hand, for a 4-bit binary number, Nf is 
16 and therefore can uniquely represent all nine integer num¬ 
bers at one-significant-digit precision. 

Testing the Numbers 


The program in Listing 1 searches all decades of a floating¬ 
point number and marks the decades where floating-point 
numbers fail to meet seven significant digits. For each decade, 
the program finds the lower limit of the octave containing the 
upper limit of the decade. Within this range the bucket sizes 
of both the real number and the floating-point number are 
constant. The program then reports the numbers of possible 
unique real numbers and floating point numbers within the 
range. The floating-point number fails to meet seven sig¬ 
nificant digits in ranges where the number of possible unique 
real numbers is greater than the number of possible unique 
floating point numbers. Figure 1 is the output of Listing 1. 
There are approximately 648,000,000 possible seven-significant- 


The 32-bit floating-point number for¬ 
mat does not have seven significant 
digits if it can be shown that there are 
ranges where Nr is greater than Nf. I 
will first explain the principle behind my 
search and then briefly describe two 
programs, one that searches all such 
ranges and another that demonstrates 
the effect of such a shortfall. Let's call 
the smallest difference between two 
numbers in a range the bucket size. 
Thus in the range between 1.0 and 9.0 
and at seven significant digits, the buck¬ 
et size is 1.000001 - 1.000000 = 
0.000001. For real numbers, the bucket 
size within the same decade (power of 
10) is constant, that is, 

bucket size of the 0 order of 
magnitude real number 
= 1.000001 - 1.000000 
= 9.999999 - 9.999998 
= 0.000001 

and 

bucket size of the 5th order of 
magnitude real number 
= 100000.1 - 100000.0 
= 999999.9 - 999999.8 
= 0.1 

The range of constant bucket size of 
the floating-point number is every oc¬ 
tave. This is because the mantissa of a 
floating-point number determines the 
precision and is confined to within 1.0 
and 2.0, which is divided into 2 23 = 
8388608 buckets. Since each decade 
spans up to four octaves (three octaves 
only go from 1 to 8), the precision of a 
floating-point number around the upper 
limit of a decade is only 1/16 that of 
the precision around the lower limit of 
the decade. 


How to build industrial strength 
database applications under Windows 


Quadbase-SQL/Win™ 

is the SQL engine of choice for 
developing applications under Win¬ 
dows using your favorite front- 
end/language such as Visual Basic, C, 
C + +, ObjectView, Toolbook, 
SQLWindows etc.. Whether your ap¬ 
plication runs on Laptops, Pen-based 
systems or LANs, you will fmd that 
Quadbase-SQL/Win sets price/per¬ 
formance standards. 

Quadbase-SQL/Win™, a DLL, is a 
full-featured relational database en¬ 
gine which is very fast, compact and 
specially designed to manage large 
amounts of data efficiently. 

The underlying file formats are 
dBASE compatible. It can also read 
Lotus 1-2-3 files and index files from 
Clipper, FoxPro and dBASE IV. 

Find out why GE, Compaq Computer, 
Microsoft, ABB, The Upjohn Co., 
AT&T and many more top notch com¬ 
panies are using Quadbase-SQL/Win. 

dQUERY is your award-win¬ 
ning power tool for ad hoc 
querying, report writing, and 
building canned query systems 
using SQL and QBE. 
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• Fully supports ANSI SQL 86 level 2 
standards, outer-join, referential 
integrity constraints, multi-user 
concurrency controls (four isola¬ 
tion levels), crash recovery, transac¬ 
tion processing, scroll cursors and 
security features. 

•Supports multiple instances, BLOB 
and read-only schemas (for CD- 
ROMs). 

• Offers custom controls for Visual 
Basic. 

• supports embedded SQL for Visual 
Basic and other languages. 

• Embedded SQL preprocessor for 
C. 

• VBQUERY, an interactive query 
tool, written in Visual Basic and 
dQUERY are included. 

Call for a free demo disk. 
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digit real numbers in the positive 32-bit floating point number 
range of le-38 and 1e38. Approximately 849,124 of these real 
numbers cannot be represented by 32-bit floating point num¬ 
bers. 

Listing 2 shows exactly how the floating-point numbers fail 
to meet seven significant digits. The program asks for the 
order of magnitude to examine. It uses double precision to 
print the last 50 numbers at eight significant digits and the 
corresponding 32-bit floating-point numbers. A true seven-sig- 
nificant-digit number should place every ten eight-significant¬ 
digit numbers into the same bucket. This program 
demonstrates that in the vicinity of 1e27 the 32-bit floating¬ 
point number format places 11 to 12 numbers to a single bin. 
Figure 2 is a worst-case example. 

Conclusions 

I’ve shown that the 32-bit floating-point number does not 
have uniform precision in representing seven-significant-digit 


Listing 2 


linclude <math.h> 
linclude <stdio.h> 
linclude <float.h> 

Idefine SIGDIG 7 
Idefine NOPTS 50 

main () f 

int i, index2, indexlO; 
float f, *ff; 

double d, df, delta, base; 
ff = &f; 


fprintf (stderr, "Enter 10's index : “); 
scant ("%d“, SindexlO); 


puts ("32-bit floating point 64-bit floating point\n"); 


indexl0++; 
if (indexlO > 0) { 

index2 = indexlO * log (10.0) / log (2.0); 

} else ( 

index2 = indexlO * log (10.0) / log (2.0) - 1; 

) 


base * pow (10.0, indexlO); 

delta = pow (10.0, indexlO - SIGDIG - 1); 

for (i = 0; i < NOPTS; i++) ( 

d = base - delta * (NOPTS - i); 
f = d; 
df = *ff; 

printf ("%.141e %.141e\n", df, d); 

if ((i % 10) == 4) printf ("\n"); 

} 

} 

/* End of File *7 


real numbers —about 0.1 percent of the time, a real number 
is represented by the wrong floating-point number. However, 
since these failures tend to exist in very rare use ranges, it is 
safe in most cases to assume that the 32-bit floating point 
number format has seven-significant-digit precision. Only in 
very demanding computations — where the limit of precision 
is approached — do the exceptions noted here take on com¬ 
putational significance. □ 


Figure 2 

32-bit floating point 

64-bit floating point 

9.99999471975321e+027 

9.99999500000000e+027 

9.99999471975321e+027 

9.99999510000000e+027 

9.99999471975321e+027 

9.99999520000000e+027 

9.99999471975321e+027 

9.99999530000000e+027 

9.99999590034483e+027 

9.99999540000000e+027 

9.99999590034483e+027 

9.99999550000000e+027 

9.99999590034483e+027 

9.99999560000000e+027 

9.99999590034483e+027 

9.99999570000000e+027 

9.99999590034483e+027 

9.99999580000000e+027 

9.99999590034483e+027 

9.99999590000000e+027 

9.99999590034483e+027 

9.99999600000000e+027 

9.99999590034483e+027 

9.99999610000000e+027 

9.99999590034483e+027 

9.99999620000000e+027 

9.99999590034483e+027 

9.99999630000000e+027 

9.99999590034483e+027 

9.99999640000000e+027 

9.99999708093645e+027 

9.99999650000000e+027 

9.99999708093645e+027 

9.99999660000000e+027 

9.99999708093645e+027 

9.99999670000000e+027 

9.99999708093645e+027 

9.99999680000000e+027 

9.99999708093645e+027 

9.99999690000000e+027 

9.99999708093645e+027 

9.99999700000000e+027 

9.99999708093645e+027 

9.99999710000000e+027 

9.99999708093645e+027 

9.99999720000000e+027 

9.99999708093645e+027 

9.99999730000000e+027 

9.99999708093645e+027 

9.99999740000000e+027 

9.99999708093645e+027 

9.99999750000000e+027 

9.99999708093645e+027 

9.99999760000000e+027 

9.99999826152807e+027 

9.99999770000000e+027 

9.99999826152807e+027 

9.99999780000000e+027 

9.99999826152807e+027 

9.99999790000000e+027 

9.99999826152807e+027 

9.99999800000000e+027 

9.99999826152807e+027 

9.99999810000000e+027 

9.99999826152807e+027 

9.99999820000000e+027 

9.99999826152807e+027 

9.99999830000000e+027 

9.99999826152807e+027 

9.99999840000000e+027 

9.99999826152807e+027 

9.99999850000000e+027 

9.99999826152807e+027 

9.99999860000000e+027 

9.99999826152807e+027 

9.99999870000000e+027 

9.99999826152807e+027 

9.99999880000000e+027 

9.99999944211969e+027 

9.99999890000000e+027 

9.99999944211969e+027 

9.99999900000000e+027 

9.99999944211969e+027 

9.99999910000000e+027 

9.99999944211969e+027 

9.99999920000000e+027 

9.99999944211969e+027 

9.99999930000000e+027 

9.99999944211969e+027 

9.99999940000000e+027 

9.99999944211969e+027 

9.99999950000000e+027 

9.99999944211969e+027 

9.99999960000000e+027 

9.99999944211969e+027 

9.99999970000000e+027 

9.99999944211969e+027 

9.99999980000000e+027 

9.99999944211969e+027 

9.99999990000000e+027 
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Stylish Dialog Boxes 





iiiil 


Patrick Burrell 


One popular alternative to the flat, white Windows 3.x visual 
style is provided by the Borland Windows Custom Control (BWCC) 
library. If you use these custom controls, the result is dialog 
boxes with a gray, “chiselled steel" background, and 
various three-dimensional effects, such as recessed 
text boxes and raised titles. What can you do if you 
don't have BWCC or don't want to distribute the extra 
DLL (bwcc.dll) with your application? This article 
demonstrates a simple method for producing stylish 
dialog boxes for Windows applications. The method 
consists of two techniques: changing the colors of 
""• A controls and the dialog background, and outlining 
controls to give them a 3-D effect. The functions I 
supply let you achieve that stylish look with only minor changes 
to your existing application. 

Getting the Look 

One of the components of the high-style look is the back¬ 
ground color of the dialog box and its controls. The background 
of the dialog box must be painted with a gray pattern to achieve 
the “chiselled steel” effect, while the background of controls 
must be painted gray to provide smooth backgrounds for text. 



Patrick Burrell received a BSEE degree from the University of 
Michigan in 1988. After three years of programming various 
Motorola and Intel embedded systems, he has spent the last year 
programming Windows applications in C 
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Listing 1 Dialog procedure for fancy dialog box 


#ifdef _BORLANDC_ 

Ipragma argsused 
lendif 

BOOL CALLBACK DlgProc(HWND hDlg, UINT uiMsg, WPARAM wParam, 
LPARAM lParam) 

{ 

BOOL bRtn = FALSE; 

if ((bRtn = DlgLook (hDlg, uiMsg, wParam, lParam)) != FALSE) 
return (bRtn); 
switch (uiMsg) 

( 

case WMJNITDIALOG: 

/* because DlgLook handles WM_1NITDIAL0G, we must */ 
/* return TRUE here for proper focus setup */ 

bRtn = TRUE; 
break; 

case WM_C0MMAND: 
switch (wParam) 

{ 

case IDCANCEL: 
case IDOK: 

EndDialog (hDlg, TRUE); 

bRtn = TRUE; 

break; 

} 

break; 

) 

return (bRtn); 

} 

/* End of File */ 


Listing 2 Code to create color, three-dimensional dialog boxes 


finclude <windows.h> 

#include <string.h> 

fdefine ORIGINALPROC(hWnd) (WNDPROC) MAKEL0NG( \ 
GetProp(hWnd, "PrLO"), GetProp(hWnd, "PrHr) ) 


LONG FAR PASCAL ComboColor(HWND hWnd, unsigned uiMsg, 

WORD wParam, LONG lParam) 

{ 

WNDPROC lpOrgProc; 

LONG IRtn = 0; 

1pOrgProc * ORIGINALPROC(hWnd); 
if (uiMsg == WM_NCDESTROY) 

{ 

IRtn = CallWindowProc (lpOrgProc, hWnd, uiMsg, wParam, lParam); 
SetWindowLong (hWnd, GWL_WNDPR0C, (LONG) lpOrgProc); 

RemoveProp (hWnd, "PrHr 1 ); RemoveProp (hWnd, “PrLO"); 

) 

else 

( 

if (uiMsg == WM_CTLCOLOR) 

( 

SetBkMode ((HDC) wParam, TRANSPARENT); 

SetTextColor ((HDC) wParam, RGB (0, 0, 0)); 

IRtn = (LONG)(short)(HBRUSH) GetStockObject (LTGRAY_BRUSH); 

) 

else 

IRtn = CallWindowProc (lpOrgProc, hWnd, uiMsg, wParam, lParam); 

} 

return (IRtn); 

) 


I change the color of the dialog box 
background and its controls by process¬ 
ing the M_CTLCOLOR message. Windows 
sends this message to the parent of a 
control just before painting the control, 
and to a dialog box procedure just 
before painting the dialog’s background. 
Upon receiving this message, the ap¬ 
plication can set the text foreground 
and background colors and the text¬ 
drawing mode by calling SetText- 
Color(), SetBkColor(), and SetBk¬ 
Mode (). To change the background of a 
control or the dialog box, the applica¬ 
tion must return a handle to a brush 
after UM_CTLC0L0R processing. Windows 
uses this brush to paint the control or 
dialog. 

The second component of the fancy 
look is raised and recessed controls that 
look three-dimensional. You can ac¬ 
complish this by subclassing the 
control’s window procedure and then 
drawing an appropriate outline around 
the control. The new window procedure 
traps UM_PAINT messages and draws a 
three-dimensional outline around the 
control after performing default paint¬ 
ing. I use MoveTof) and LineTo() for 
drawing white and gray lines around 
the control to give it a raised or 
recessed appearance. 

The preceding gives you the basic 
idea of what lies behind the fancy 
dialog look; all that's left is how to im¬ 
plement it. My main goal in designing 
this technique was to make it com¬ 
pletely encapsulated. I did not want the 
method to become a burden to imple¬ 
ment, so I created one function to be 
included in all dialog procedures. 
Another goal was to do as much as I 
could using standard Windows controls 
and programming techniques. I did not 
want to be dependent on third-party 
control libraries, nor did I want to invest 
a lot of time writing custom controls 
merely to have my own “look." 

Listing 1 shows a dialog procedure 
that has been modified to produce a 
color, three-dimensional dialog. The 
only change is the call to the function 
DlgLookf). All the code to implement 
DlgLookf) is in Listing 2. DlgLook() 
acts as a filter to handle the messages 
that I am interested in. It has the same 
four parameters as a dialog procedure 
and it returns a BOOL. 
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DlgLookf) handles just three messages: WM_INITDIALOG, to 
initialize various things and subclass child controls; 
m_CTLCOLOR, to color controls; and UM_DESTROY, to clean up 
before the dialog box closes. Including this function call in 
your dialog procedure is the only code change required to 
turn your dialog box into a fancy, three-dimensional, color 
dialog box. You do also have to make a few changes to your 
dialog box template, which I explain next. 

The Dialog Template 

Besides controlling the background and drawing three- 
dimensional lines around controls, I needed the ability to cre¬ 
ate raised and recessed panels, for placing groups of controls 
within. Since I had resolved that I would not use non-standard 
Windows programming techniques and 
would avoid writing custom controls, I 
had to work with what I had at hand. 

Using Borland's custom dialogs as a 
model, I realized I could use the static 
text control to provide all the three- 
dimensional effects I needed. I follow 
three rules when subclassing static text 
controls. First, if a static text control 
does not have the MS_B0RDER style, no 
three-dimensional effects are applied to 
it. Second, if the control has text in it, it 
is drawn in the "raised" style. Third, if 
the control has no text in it, it is drawn 
in the “recessed” style. The recessed 
static text is used extensively to pro¬ 
vide panels in the dialog for grouping 
related controls. 

The dialog template in Listing 3 con¬ 
tains a variation on the Print dialog 
from Windows 3.1 common dialogs. This 
dialog demonstrates the use of the 
three variations on the static text con¬ 
trol. For an extra 3-D effect, I also 
"recess” all edit controls. The resulting 
gray, three-dimensional dialog appears 
in Figure 1. 

Controlling Color 

Before delving into the details of 
Dig Look (), 1 should note that I make 
extensive use of window properties to 
implement my technique. I use Set- 
Prop 0, GetPropO, and RemovePropO 
to attach data to a window without ac¬ 
cessing the window extra bytes. This is 
important when dealing with windows 
created from predefined classes, such 
as controls and dialog boxes. I use 
properties to store data that would 
otherwise require a global or a static 
variable. 

When your dialog procedure calls 
DlgLook() with the UMJNITDIALOG 
message, DlgLook() constructs the 


brush it will use to paint the background of the dialog box. 
Brushes are specified by 8 x 8 bitmaps. In this case, I construct 
the bitmap on the fly with a device-independent bitmap 
specification. The array ChiselledSteel contains the bit pat¬ 
tern (see Figure 2) that produces the familiar Borland look. 

One problem with bitmaps is that they look different at 
different resolutions. For example, what looks like chiselled 
steel at CGA resolutions may look like tiny dots at SVGA 
resolutions. This is not a simple problem, but the code does 
make an effort to handle it. You can get an idea of the screen 
resolution at runtime by calling GetDeviceCaps (). In this case, 
I check how many horizontal pixels per centimeter the screen 
supports. If the number is greater than or equal to 38 (which 
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typically happens with resolutions of 
800 x 600 or better), I use Stretch- 
Bit () to double the size of the brush 
bitmap. 

Once I have a handle to a bitmap of 
the desired resolution, I pass it to 
CreatePatternBrush() to create the 
brush to use for painting the dialog box 
background. Since the background of 
controls is just a solid color, I obtain a 
solid brush from GetStockObject(). 
Then I use SetPropO to store the 
handles to these brushes in the proper¬ 
ty list of the dialog window. I use short 
strings for the property names to speed 
up the property search when they are 
retrieved. If you were really concerned 
about speed, you could use atoms in¬ 
stead of strings for the property names. 

Windows sends the WM_CTLC0L0R 
message many times during the life of 
a dialog —every time a control or dialog 
needs repainting. This message is sent 
to give an application the chance to 
step in and affect the appearance of a 
control or dialog. Specifically, by han¬ 
dling this message an application can 
tell Windows what colors to use for a 
control or dialog background. Incidental¬ 
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ly, this message also allows you to 
change the color of message boxes, but 
my implementation specifically avoids 
doing that, because Windows provides 
no means of using my three-dimen¬ 
sional control method with message 
boxes. You could, however, write your 
own message box utility which calls 
DlgLookf). 


When Windows sends the 
HM_CTLC0L0R message, it includes addi¬ 
tional information in wParam and l- 
Param. wParam contains the handle to 
the device context for the control. The 
low-order word of l Pa ram contains the 
window handle for the control. The 
high-order word of l Pa ram contains a 
value indicating what Windows is about 


Listing 2 continued 


/* constants to distinguish "recess” from “raise" */ 

Idefine UP 3D 1 

#define D0WN_3D 2 

static 

void Draw3DFrame(HWND hWnd, int iStyle) 

{ 

HDC hDC; 

HPEN hOldPen, 

hLTPen, /* left & top pen */ 

hRBPen; /* right & bottom pen */ 

RECT r; 

switch (iStyle) 

{ 

case UP_3D: 

hLTPen = CreatePen (PS SOLID, 1, RGB (255, 255, 255)); 

hRBPen = CreatePen (PS~S0LID, 1, RGB (128, 128, 128)); 

break; 

case D0WN_3D: 

hLTPen - CreatePen (PS_S0LID, 1, RGB (128, 128, 128)); 

hRBPen = CreatePen (PS_S0LI0, 1, RGB (255, 255, 255)); 

break; 

) 

hDC = GetWindowDC (hWnd); 

GetWindowRect (hWnd, &r); 

hOldPen = SelectObject (hDC, hLTPen); 

/* draw left */ 

MoveTo (hDC, 0, (r.bottom - r.top)); 

LineTo (hDC, 0, 0); 

/* draw top */ 

LineTo (hDC, (r.right - r.left - 1), 0); 

SelectObject (hDC, hRBPen); 

/* draw right */ 

LineTo (hDC, (r.right - r.left - 1), (r.bottom - r.top - 1)); 
/* draw bottom */ 

LineTo (hDC, 0, (r.bottom - r.top - 1)); 

SelectObject (hDC, hOldPen); 

ReleaseDC (hWnd, hDC); 

DeleteObject (hLTPen); 

DeleteObject (hRBPen); 

) 


static 

LONG Draw3DUpDown(HWND hWnd, unsigned uiMsg, 
WORD wParam, LONG IParam, int UpOrDown) 
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to paint: a dialog box, a message box, 
or a control. These values are defined in 
windows.h, and all begin with the prefix 
CTLC0L0R_. When processing this mes¬ 
sage, the code must return a handle to 
a brush to be used to paint the back¬ 
ground. When a dialog box is being 
painted, I return the pattern brush, 
which I pulled out of the window 


property list with GetProp(). For a pat¬ 
terned brush, I also call Unrealize- 
Object() to reset the origin of the 
brush. When a control is being painted, 
I return the solid brush in a similar 
fashion. For a message box, I simply 
return FALSE to indicate I don't want to 
change the color. 
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Listing 2 continued 


{ 

WNDPROC lpOrgProc; 

LONG IRtn = 0; 

lpOrgProc » ORIGINALPROC(hWnd); 
if (uiMsg == WM_NCDESTROY) 

{ 

IRtn * CallWindowProc (lpOrgProc, hWnd, uiMsg, wParam, lParam); 
SetWindowLong (hWnd. GWL_WNDPROC, (LONG) lpOrgProc); 

RemoveProp (hWnd, "PrHI 11 ); RemoveProp (hWnd, "PrLO"); 

) 

else 

{ 

IRtn ■ CallWindowProc (lpOrgProc, hWnd, uiMsg, wParam, lParam); 

if (uiMsg >= WM_PAINT) 

Draw3DFrame (hWnd, UpOrDown); 

) 

return (IRtn); 

) 

LONG FAR PASCAL Draw3DDown(HWND hWnd, unsigned uiMsg, 

WORD wParam, LONG lParam) 

( 

return Draw3DUpDown(hWnd, uiMsg, wParam, lParam, D0WN_3D); 

) 

LONG FAR PASCAL Draw3DUp(HWND hWnd, unsigned uiMsg, 

WORD wParam, LONG lParam) 

( 

return Draw3DUpDown(hWnd, uiMsg, wParam, lParam, UP_3D); 

) 

void FAR PASCAL SubclassControl(HWND HCtrl, void FAR *Cal1 back) 

{ 

FARPROC lpOrgProc; 

lpOrgProc * (FARPROC) SetWindowLong (hCtrl, GWL_WNDPROC, 

(LONG) (FARPROC) Callback); 

SetProp (hCtrl, "PrHI”, (HANDLE) HIWORD (lpOrgProc)); 

SetProp (hCtrl, "PrLO", (HANDLE) LOWORD (lpOrgProc)); 

) 


lifdef _BORLANDC_ 

Ipragma argsused 
lendif 

BOOL CALLBACK EnumCtrlProc( 

HWND hCtrl, 

LONG 1Param) 

{ 

char str [100]; 

GetClassName (hCtrl, str, oizeof (str)); 
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Listing 2 continued 


if (strcmp (str, "Edit") ■■ 0) 

SubclassControl(hCtrl, Draw3DDown); 
else if (strcmp (str, "ComboBox") ** 0) 

SubclassControl(hCtrl, ComboColor); 
else if ((strcmp (str, "Static") *■ 0) 

&& ((GetWindowLong (hCtrl, GWL_STYLE) & WS_B0RDER) 1* 0) 

{ 

/* if control contains no text, recess it, else raise it */ 
if (GetWindowText (hCtrl, str, sizeof (str)) ** 0) 

SubclassControl (hCtrl, Draw3DDown); 

else 

SubclassControl (hCtrl, Draw3DUp); 

} 

return (TRUE); 

) 


static struct 

{ 

BITMAPINFOHEADER InfoHeader; 

RGBQUAD Colors [2]; 

) MonoDibSpec = 

{ 

{ 

sizeof(BITMAPINFOHEADER), /* biSize */ 

8, 8, /* biWidth, biHeight */ 

1, 1, /* biplanes, biBitCount */ 

BI_RGB, /* biCompression */ 

0, /* biSizelmage */ 

0, 0, /* biXPelsPerMeter, biYPelsPerMeter */ 

0, 0, /* biClrUsed, biClrlmportant */ 

). 

{ 

/* blue green red */ 

( OxFF, OxFF, OxFF, 0x00 }, /* white */ 

{ OxCO, OxCO, OxCO, 0x00 } /* light grey */ 

) 

}; 

/* Monochrome replica of "chiselled steel" bitmap */ 

static BYTE ChiselledSteel [] = 

( 

OxAA, 0x00, 0x00, 0x00, /* rows padded to four bytes */ 
OxFF, 0x00, 0x00, 0x00, 

OxAA, 0x00, 0x00, 0x00, 

OxFF, 0x00, 0x00, 0x00, 

OxAA, 0x00, 0x00, 0x00, 

OxFF, 0x00, 0x00, 0x00, 

OxAA, 0x00, 0x00, 0x00, 

OxFF, 0x00, 0x00, 0x00, 

); 


BOOL DlgLook(HWND hDlg, unsigned uiMsg, WORD wParam, 
LONG IParam) 

{ 

BOOL bRtn = FALSE; 

HBRUSH hSldBr, hPtnBr; 

HBITMAP hBmp; 

switch (uiMsg) 

( 

case WM_INITDIALOG: /* init color controls */ 

( 

HDC hDC; 
int XRes; 

hDC * GetDC(hDlg); 

XRes « GetDeviceCaps(hDC, HORZRES) 

/ (GetDeviceCaps(hDC, HORZSIZE)710); 


An application can also change the 
color of the text in a control. Since w- 
Param contains a device context handle 
for the control, SetTextColor() and 
SetBkColorf) are used to control the 
foreground and background colors of 
text. I discovered that you cannot forgo 
setting the background color with Set- 
BkColorf) and call SetBkModef) to use 
transparent mode. This method will not 
change the edit control's color in a 
dropdown list combobox. 

There is one anomaly in using 
WM_CTLCOLOR to change the color of a 
combobox: it can’t be done. The SDK 
documentation states that in order to 
control a combobox, you must subclass 
it and process the UM_CTLC0L0R mes¬ 
sage in your subclass function. This 
method is shown in ComboColorf) in 
Listing 2. 

DlgLookf) intercepts WM_DESTROY as 
the dialog box is shutting down, deletes 
the pattern and solid brushes created in 
response to UM_INITDIALOG, and 
removes the properties used to hold 
them. 

The three-dimensional look for con¬ 
trols is easy to achieve. If you draw a 
white line along the left and top sides 
of the control and a dark gray line 
along the right and bottom sides, the 
control will look “raised" from the back¬ 
ground surface of the dialog. If you 
switch the white and dark gray lines, 
the control will appear to be “recessed" 
into the dialog background. 

To ensure that the three-dimen¬ 
sional lines are not disturbed, it is best 
to draw these lines after the control is 
finished with its own painting. Since the 
line-drawing occurs after the control 
processes its WM_PAINT message, and 
since Windows does not send a mes¬ 
sage to indicate that a control has just 
been painted, you must subclass the 
control. Subclassing, in Windows terms, 
means substituting a function of your 
own in place of a Windows message 
processing function. This technique al¬ 
lows you to add additional, or different, 
message processing capability to a win¬ 
dow. My strategy is to add a function 
that draws the three-dimensional lines 
after the default UM_PAINT processing. 

To subclass the dialog box controls, 
DlgLookf) calls EnumChildUindowsf) to 
operate on each of the dialog box 
controls. The enumeration function, 
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Listing 2 continued 


hBmp ■ CreateDIBitmap(hDC, &MonoDibSpec.InfoHeader, 
CBMJNIT, &Chisel ledSteel, 
(LPBITMAPINFO)&MonoDibSpec, DIB_RGB_COLORS); 

/* if resolution roughly 800 by 600 mode or better */ 
if(XRes >» 38) /* then scale up by two */ 

{ 

HBITMAP hTempBmp, hOldSrc, hOldDest; 

HDC hSrcDc, hOestDc; 

hSrcDc * CreateCompatibleDC(hDC); 
hDestDc ■ CreateCompatibleDC(hDC); 
hTempBmp= CreateCompatibleBitmap(hDC, 8, 8); 
hOldSrc = SelectObject(hSrcDc, hBmp); 
h01dDest= SelectObject(hDestDc, hTempBmp); 
StretchBlt(hDestDc, 0, 0, 8, 8, 

hSrcDc, 0, 0, 4, 4, SRCCOPY); 

DeleteObject(SelectObject(hSrcDc, hOldSrc)); 
SelectObject(hDestDc, hOldDest); 

DeleteDC(hSrcDc); 

DeleteDC(hDestDc); 

DeleteObject(hBmp); 
hBmp = hTempBmp; 

} 

ReleaseDC(hDlg, hDC); 

hPtnBr » CreatePatternBrush (hBmp); 
hSldBr = GetStockObject (LTGRAY_BRUSH); 

SetProp (hDlg, “PBr", hPtnBr); 

SetProp (hDlg, "SBr", hSldBr); 

DeleteObject (hBmp); 

/* init 3D controls and combo-boxes*/ 

EnumChildWindows (hDlg, EnumCtrlProc, OL); 
break; 

) 

case WM_CTLCOLOR: 

switch (HIWORD (1 Param)) 

{ 

case CTLCOLOR_DLG: 

bRtn = (BOOL) (HBRUSH) GetProp (hDlg, “PBr"); 
break; 

case CTLCOLOR_STATIC: 
case CTLCOLOR_BTN: 
case CTLCOLOR_LIST80X: 
case CTLCOLOR_EDIT: 
case CTLCOLOR_SCROLLBAR: 

SetBkMode ((HDC) wParam, OPAQUE); 

SetBkColor ((HDC) wParam, RGB (192, 192, 192)); 
SetTextColor ((HDC) wParam, RGB (0, 0, 0)); 
bRtn = (BOOL) (HBRUSH) GetProp (hDlg, "SBr"); 
break; 

} 

break; 

case WM_NCDESTROY: 

DeleteObject ((HBRUSH) GetProp (hDlg, “PBr")); 
DeleteObject ((HBRUSH) GetProp (hDlg, “PBr")); 
RemoveProp (hDlg, "PBr"); 

RemoveProp (hDlg, “SBr"); 
break; 


return (bRtn); 

} 

/* End of File */ 
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Listing 3 A Print dialog variation 


DLG MAIN DIALOG 10, 20, 235, 215 

STYLE DS_M0DALFRAME | WS POPUP | WS_CAPTI0N | WSJYSMENU 
CAPTION “Dialog ""Look"“ _ Demo" 

FONT 8, "Helv“ 

BEGIN 

CONTROL “ Printer:", -1, "STATIC", SS LEFT | WS CHILD | WS VISIBLE | WS_BORDER | WS_GROUP, 10, 11, 145, 10 
CONTROL "*, -1, "STATIC", SS LEFT | WS_CHILD | WS VISIBLE T WS BORDER | WS GROUP, 10. 20, 145, 20 
LTEXT “System Default", -1, 15, 25, 135, 10, WS_CHILD | WSJISIBLE | WS GROUP 

CONTROL " Print Range:", -1, "STATIC", SS_LEFT J WS CHILD J WSJISIBLE J WS BORDER | WS GROUP, 10, 50, 145, 11 

CONTROL "", -1, "STATIC", SS_LEFT | WSJHTLO | WS VISIBLE | WS'BORDER | WS_GROUP, 10, 60, 145, 70 

CONTROL “&A11", -1, "BUTTON'7 BS AUTORADIOBUTTON J WS CHILD | WSVISIBLE | WS GROUP j WS TABSTOP, 20, 65, 75, 10 

CONTROL "S&election", -1, "BUTTON", BS AUTORADIOBUTTON | WS CHILD | WS VISIBLE, 20, 80, 75, 10 

CONTROL "&Pages", -1, "BUTTON", BS AUTORADIOBUTTON | WS CHILD | WS VISIBLE, 20. 95, 75, 10 

RTEXT "&From:\ -1, 35, 111, 24, 10, SS RIGHT | WS CHILD | WSJISIBLE | WS GROUP 

CONTROL "", -1, "EDIT", ES RIGHT | WS CHILD | WS VISIBLE j WS_BORDER | WS_TABSTOP, 65, 110, 25, 12 

RTEXT "&To:\ -1, 95. Ill, 16. 9, SS RIGHT | WS_CHILD | WS VISIBLE | WS_GROUP 

CONTROL "", -1, “EDIT", ES_RIGHT | WS CHILD | WS VISIBLE fWS BORDER | WS TABSTOP, 115, 110, 25, 12 

CONTROL " Print &Quality:\ -1. "STATIC", SS LEFT | WS CHILO J WS VISIBLE~| WS BORDER | WS_GROUP, 10, 140, 90. 11 

CONTROL "", -1, "STATIC", SS LEFT | WS CHILD~| WS VISIBLE | WS BORDER | WS GROUP, 10, 150, 90, 22 

CONTROL “", -1, "COMBOBOX", CBS DROPDOWNLIST | WS~CHILD | WS VISIBLE | WS BORDER | WS VSCROLL | WS GROUP | WS TABSTOP, 15, 155, 80, 40 
CONTROL " iCopies:", -1, "STATIC", SS LEFT | WS_CHILD | WS VISIBLE | WS BORDER | WS GROUP, 120, 145, 35, 11 
CONTROL "", -1, "EDIT", ES RIGHT | WS _ CHILD | WSJISIBLE | WS BORDER | WS TABSTOP, 120, 155. 35, 12 
CONTROL "", -1, “STATIC", SS LEFT | WS CHILD | WS VISIBLE | WS BORDER | WS GROUP, 10, 185, 60, 20 

CONTROL "Print to Fi&le", -lT "BUTT0N"7 BS AUTOCHECKBOX | WS CHILD | WS VISIBLE | WS GROUP | WS TABSTOP, 15, 190, 50, 10 

CONTROL "“, -1, "STATIC", SS LEFT | WS_CHILD | WS VISIBLE | WS BORDER | _ WS_GROUP, 857 185, 70, 20 

CONTROL "Collate Cop&ies", -I, "BUTTON 7 , BS AUTOCHECKBOX | WS CHILD | WS VISIBLE | WS_GROUP | WS TABSTOP, 90, 190, 60, 10 
CONTROL "", -1, “STATIC", SS LEFT | WS CHILD | WS VISIBLE | WS BORDER | WS GROUP, 165, 0, 1, 215 _ 

CONTROL “OK", IDOK, "BUTTON\ BS_DEFPUSHBUTTON | WS CHILD | WS VISIBLE | WS GROUP | WS TABSTOP, 175, 10, 50, 15 

CONTROL "Cancel", 1DCANCEL, "BUTTON", BS PUSHBUTTON _ | WS CHIUf| WS VISIBLE~| WS GROUP~| WS TABSTOP. 175, 35, 50, 15 
CONTROL "&Setup...\ -1, "BUTTON", BS PUSHBUTTON | WS CHILD | WSJISIBLE | WS GROUP | WSJABSTOP, 175, 60, 50, 15 
CONTROL "&Help", -1, "BUTTON", BS PUSHBUTTON | WS CHILD | WS VISIBLE | WS GROUP | WS TABSTOP, 175, 85, 50, 15 
END 

/* End of File */ 
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EnumCtrlProcf) in Listing 2, checks the 
class name of each control, and installs 
the correct subclass callback function to 
either raise the control or lower it For 
comboboxes, it installs a subclass func¬ 
tion to control the color. EnumCtrl- 
Proc() also stores the previous window 
function for each control in that 
control’s property list, so that the newly 
installed callback functions can retrieve 
it later. At this point the dialog and all 
the controls have been initialized for 
color and 3-D appearance. 

Since Draw3DUp() and Draw3DDown() 
are now the window procedures for all 
controls that will have the three-dimen¬ 
sional look, all messages for the control 
will pass through them. These two 
functions behave nearly identically, so 
they call a common function, Draw3D- 
UpDownf). This function is mainly inter¬ 
ested in UM_PAINT processing, so it calls 
the default window procedure to 
process all messages. However, after 
processing UM_PAINT, Draw3DUpDown() 
calls Draw3DFrame() to handle drawing 
the frame around the control. Draw3D- 
Frame() creates a pen for the left and 
top sides, and one for the right and bot¬ 
tom sides. The color of these pens is 
determined by the style parameter. The 
size of the window is then determined 
and the outline is drawn with the 
proper pens. 

The other message that Draw3DUp- 
Down() is interested in is WM_NCDESTROY. 
After processing this message, Draw3D- 
UpDown() removes the properties that 
were used to hold the default window 
procedure. This technique uses a lot of 
property accesses, function calls, and 
message processing. However, I have 
found that because most dialog box ex¬ 
ecution time is spent waiting for user 
input, the processing time required to 
perform special dialog appearance code 
is negligible. 

Summary 

Stylish dialog boxes don't add any 
functionality to your application, but 
they do give it a professional look. With 
the functions provided in this article, 
you can enhance your existing dialog 
boxes with very little work, without 
having to buy custom controls or in¬ 
clude extra DLLs with your product. □ 



Figure 1 The results of using DlgLookQ 
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Figure 2 8x8 bitmap for chiselled steel background 
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Loading TSRs into 

Thomas W. Olsen 


One of the best features of DOS 5.0 is its ability to move TSRs, 
device drivers, and itself above the "640Kb barrier" and into the 
Upper Memory Blocks (UMBs) and High Memory Area (HMA) — 
leaving nearly 620Kb of free conventional memory. If you are 
feeling "squeezed” by DOS memory constraints, this windfall 
could not have arrived at a better time. Add-on products like 
QEMM-386 and 386MAX yield even greater savings by compress¬ 
ing ROMs, remapping video display memory, and squashing the 
BIOS data region. 

Believe it or not, even more untapped DOS memory is on the 
horizon. This article describes how to load TSRs into expanded 
memory and, thus, reclaim real-mode memory for other uses. It 
might just eliminate the words “RAM cram” from your 
vocabulary. All that's required is a bit of creative — albeit unor¬ 
thodox — programming. Before explaining the technique, I will 
briefly review DOS memory management. 

DOS Memory Management 

Lotus, Intel, and Microsoft formulated the original Expanded 
Memory Specification (LIM/EMS) in 1985 to give DOS applications 
more addressable memory. Bank-switched expanded memory 
hardware quickly faded into obscurity with the introduction of 
80286 and 80386 protected-mode architectures that could direct¬ 
ly access more than 1Mb. Microsoft soon proposed the Extended 
Memory Specification (XMS) to better suit extended memory 
hardware. The XMS device driver ( himem.sys ) forms the 
cornerstone of Windows' memory management. 


Thomas W. Olsen develops DOS and Windows software for a 
major insurance company. He attended the United States Naval 
Academy and holds a degree in English Literature from Central 
Connecticut State University. Contact him on the CompuServe In¬ 
formation Service at 76450,1764. 
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Expanded Memory 


Nonetheless, rumors of the demise of EMS were indeed ex¬ 
aggerated since 80386 expanded memory managers (such as 
the one in Windows) simulate expanded memory hardware 
with extended memory; for that same reason, distinctions be¬ 
tween the two forms of memory have become merely 
semantic. Furthermore, don’t forget that DOS 5.0 manages the 
UMBs with EMS, that EMS works on virtually all PC platforms, 
and that thousands of DOS applications contain support for 
EMS, too. 

The Expanded Memory Manager (EMM) device driver loads 
during bootup from config.sys and constitutes the EMS 
software interface to expanded memory hardware. The EMM 
creates a 64Kb region within the first megabyte of memory, 
called a “page frame" (Figure 1), into which applications map 
16Kb "logical pages.” The page frame provides a window 
through which real-mode applications can swap chunks of ex¬ 
panded memory in and out. Each block of pages has an as¬ 
sociated handle. Applications talk to the 
EMM through a software interrupt (INT 
67H) and direct all aspects of expanded 
memory allocation, context preserva¬ 
tion, deallocation, frame location, and 
page mapping. 

DOS memory management is rather 
crude by comparison. It hands out 
memory in contiguous chunks, prefac¬ 
ing each with a Memory Control Block 
(MCB) header and forming a linked list. 

The MCB contains a signature field 
(“M’’=Normal Block, “Z”=End of List), the 
segment address of its owner (0x0000 
means the segment is free), the total 
number of paragraphs (16 bytes each), 
and the name of the owner. During 
memory requests, DOS sifts through the 
MCB chain for a free block and marks 
its owner field with the segment ad¬ 
dress of the requesting program. DOS 
deallocates a segment by resetting the 
MCB owner field to null. 

DOS 5.0 extends the MCB chain 
beyond the previous version's limit of 
640Kb by mapping around areas 
reserved for video and device ROM ex¬ 
tensions with fake MCBs. That does not 
mean you will see "900,000 bytes free” 
after running CHKDSK, though. DOS 5.0 


perpetuates the artificial 640Kb memory limitation for the 
sake of compatibility with older programs while providing 
separate memory management functions for the UMBs; 
likewise, DOS 5.0 never loads programs above 640Kb unless 
told otherwise with the new LOADHIGH (LH) command, which 
puts them in the UMBs. 

em386.exe allocates UMBs with a "largest block first” 
methodology that sometimes leaves unused gaps in UMB 
memory. It takes this conservative approach because some 
TSRs become ill-mannered and crash the PC when confronted 
with marginal resources. Users often need to experiment with 
several different TSR-loading sequences before finding the op¬ 
timal combination. QEMM386 employs so-called "stealth tech¬ 
nology" that allows larger TSRs to squeeze into smaller UMB 
slots. Despite these advances, two irrefutable facts remain: 
there is a limited amount of UMB space and there are too 
many TSRs. 
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Listing 1 loadhi.c - Program to load TSR into expanded memory 


/* 

************************************************************************* 

* Title: LOADHI.C * 

* Author: Thomas W. Olsen * 

* Copyright 1992. All Rights Reserved * 

* Version: 1.0 * 

* Compiler: Microsoft C v6.0a * 

* cl /AS /Gs /W3 /Z1 loadhi.c * 


* Info: This program loads EMS_TSR Into Expanded Memory (EMS) and * 

* Installs STUB TSR in Conventional Memory. * 

* It Is compatible with LIM EMS v3.2. * 

* * 

* Usage: LOADHI STUB TSR.EXE EMS TSR.EXE [parms...] * 

* ” * 
************************************************************************* 
*/ 

♦Include <stdl1b.h> 

♦include <stdio.h> 

♦include <process.h> 

♦include <dos.h> 

♦include <str1ng.h> 

♦include <fcntl.h» 


♦if MSC_VER >- 600 U !defined(M_I86SM) ii !defined(M_I86MM) 
♦error Use Small or Medium Memory Model (/AS or /AM) 

♦endif 


♦define EMS MANAGER STATUS 0x40 

♦define EMS~PAGEFRAME_SEGMENT 0x41 

♦define EMS~GET NUMBER_0F PAGES 0x42 

♦define EMS _ ALLOCATE PAGES 0x43 

♦define EMS"MAP_PAGE" 0x44 

♦define EMS DEALLOCATE PAGES 0x45 

♦define EMS~PAGE SIZE “ 16384 

♦define TRUE " 1 

♦define FALSE 0 

typedef unsigned int BOOL; 
typedef unsigned int WORD; 


Now shift your attention to the EMS 
page frame located beside the UMBs. Its 
meager footprint conceals literally 
megabytes of additional memory. 
Wouldn't it be great to tap those 
resources for DOS programs? The prob¬ 
lem is that, unlike Windows or OS/2 
programs, DOS programs do not readily 
disintegrate into MOVEABLE, DISCAR¬ 
DABLE, and FIXED pages. DOS reads an 
entire executable into fixed memory 
and obviates the need for intermittent 
page fetches. Plus, many DOS programs 
grab interrupt vectors and this prevents 
dynamic swapping. To their credit, TSR 
programs have simple memory require¬ 
ments and virtually govern themselves 
after becoming resident, making them 
ideal candidates for expanded memory. 

The next section focuses on how to 
place TSRs in expanded memory and 
ensure cooperative behavior and perfor¬ 
mance. All of the accompanying source 
code was compiled, linked, and tested 
with the Microsoft C Optimizing Com¬ 
piler v6.0a. Other compilers should work 
with few changes, but you should pay 
close attention to non-ANSI standard 
library extensions such as int86() and 
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movedata(). These programs require an EMS device driver. 
Check the documentation for your particular brand of 
hardware. DOS 5.0 users may include a variation on the fol¬ 
lowing command in their config.sys file, where “nnnn” repre¬ 
sents kilobytes of expanded memory: 

DEVICE=EMM386.EXE RAM nnnn 

loadhi.c 

loadhi.c (Listing 1) mimics current "LOADHIGH” technology but 
moves TSRs into the EMS page frame instead of the UMBs. It 
first determines whether the EMM is present and ready, then 
obtains the segment address of the page frame, allocates four 
16Kb pages, and maps them into the page frame. Some EMS 
implementations permit larger frame sizes —and thus larger 
TSRs — at the expense of portability. 
loadhi.c takes the middle ground for 
optimum portability. 

Next, loadhi.c commandeers the 
MCB located immediately after itself in 
memory by preserving its contents, 
changing its signature to "M,” assuming 
ownership, and updating its paragraphs 
field to the total number of segments 
lying between that MCB and the EMS 
page frame, loadhi.c then places a 
fake unused MCB in the EMS page 
frame containing a “Z" signature and 
paragraph size of OxFFE, or nearly 64Kb. 

This strategy forces DOS to use the fake 
MCB in the EMS page frame for any sub¬ 
sequent memory operations. 

loadhi.c loads ems_tsr.c (Listing 2) 
into the page frame with the spawnvp() 
function, and DOS does all of the work. 

DOS determines that the next block of 
available memory lies in the page 
frame, and puts ems_tsr.c there. 
ems_tsr.c takes over user interrupt 
0x60 and becomes resident, not even 
aware that it resides in the page frame. 

Recall, however, that another applica¬ 
tion could conceivably swap the volatile 
TSR into expanded memory without 
warning. In that scenario, ems_tsr.c 
would be replaced by foreign memory 
pages, and interrupt 0x60 would point 
to nonsensical data. Anyone invoking 
interrupt vector 0x60 would likely crash 
the PC. 

The fact that the TSR could get 
swapped out necessitates a few ground 
rules. ems_tsr.c must have a small 
stub program in conventional (or UMB) 
memory that intercepts interrupts and 
manages its presence in the page 
frame. For similar reasons, ems_tsr.c 
cannot use EMS itself without being 
overwritten by newly mapped pages. 


ems_tsr.c cannot service hardware interrupts or other 
asynchronous events (such as IPX/SPX Event Service Routines, 
I NT 15h System Event Wait) that could expire while absent 
from memory. Stub programs can utilize EMS and 
asynchronous events because they are fixed in memory and 
subject to interruption at any time. 

That is where stub_tsr.c (Listing 3) comes in. It receives a 
command-line argument naming the EMS handle for 
ems_tsr.c, takes over hardware keyboard interrupt 0x09, and 
becomes resident stubtsr.c avoids reentrancy by toggling 
the reentryFlag variable. After intercepting an Alt-Ctrl hot 
key via interrupt 0x09, stub_tsr.c saves the current EMS 
mapping context, maps ems_tsr.c into the page frame, and 
branches through interrupt 0x60. 
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Listing 1 continued 


Ipragma pack(l) 

typedef struct MemoryControlBlock 

{ 

char signature; 

WORD pspOfOwner; 

WORD paragraphs; 
char reserved[11]; 

} MCB; 

Ipragma pack() 

/********************************************************************** 

* Print Error Message and Abort * 

**********************************************************************j 

void Fail(char ‘message) 

{ 

printf("%s", message); 
exit(-l); 

} 

/********************************************************************** 

* EMS Allocate Pages * 

**********************************************************************j 

BOOL EmsAllocatePages(int numpages) 

{ 

union REGS regs; 
regs.h.ah = EMS_ALLOCATE_PAGES; 
regs.x.bx = numpages; 
int86(0x67, &regs, &regs); 

return (regs.h.ah != 0 ? FALSE:regs.x.dx); /* DX=handle */ 

} 

j ********************************************************************** 

* EMS Deallocate Pages * 

********************************************************************** j 

BOOL EmsDeallocatePages(int handle) 

{ 

int loop; 
union REGS regs; 


ems_tsr.c receives control, displays 
a message at a random screen location, 
and returns to stub_tsr.c, which res¬ 
tores the EMS mapping context. Many 
TSRs can coexist in expanded memory 
by following this simple protocol. TSRs 
taking over more than one interrupt 
should synchronize EMS context opera¬ 
tions to avoid unnecessary thrashing. 
Try loading several copies of emstsr 
and stub_tsr into memory at the same 
time and pressing the hot key. You 
should see a corresponding number of 
screen messages. 

Improvements 

loadhi.c could probably fit 
ems_tsr.c onto a single 16Kb page, as 
opposed to four, by trimming the fake 
MCB paragraph size down to 0x3FF. 
loadhi.c could cycle progressively 
through EMS page allocation, starting 
with one page and increasing to four 
pages until the TSR loads successfully. 
Keep in mind that EMS memory alloca¬ 
tion occurs in chunks of 16Kb, so 
smaller TSRs will incur a considerable 
amount of overhead. Loading more 
TSRs into memory also means greater 



□ Request 134 on Reader Service Card □ 


Page 60 — Windows/DOS Developer’s Journal 


STATEMENT OF OWNERSHIP. MANAGEMENT AND CIRCULATION 

Required by 39 U.S.C. 3685) 

1A. Till# of Publication 

Windows/DOS DEVELOPER'S JOURNAL 

IB PUBLICATION NO. 

2. Date of Filing 

09/18/92 

l |° | 5 | 9 2 |4 | 0 

7 

Monthly 

3A No. ot Issues Published 

12 

3B. Annual Subscription Price 

$29.00 

Suite 200, 1601 West 23rd Street, Lawrence, Kansas 66046 

Same as above 

6 Full Names and Com D lete Mailing Address ol Publisher, Editor, and Managing Editor (This item MUST NOT be blank) 

Robert Ward, Suite 200, 1601 West 23rd Street, Lawrence, Kansas 66046 

Ron Burk, Suite 200, 1601 Heat 23rd Street, La.r.nce, K.n.a. 66046 

Martha Masinton & Diane Thomas, Suite 200, 1601 West 23rd St., Lawrence, KS 

7 ° wn,r "! °' nrd d 1 orporanon in name end address must be Haled and alio tmmedtatrlv thereunder the names and addresses of stockholders owning or holding 

1 percent or more of total amount of stock If not owned by a corporation, the names and addresses of the individual owners must be given. If owned by a partnership 

Full Name 

Complete Mailing Address 





Robert Lee Ward 

Same as above 




Same as above 


Full Name 

Complete Mailing Address 



N/A 








9 For Comp let ion by Nonprofit Organizations Authorized To Mail at Special Rates IDMM Section 423 12 only) 

The purpose, function, and nonprotit status ol this organization and the exempt status tor Federal income tax purposes /Check one) 

N/A 

HI 121 

1 1 Has Not Changed During [—| Has Changed During Hf changed, publisher must submit explanation of 

LJ Preceding 1 2 Months 1 — 1 Preceding 1 2 Months change wish this statement ) 

,0 ' Extent and Nature ot Circulation 

ISee instructions on reverse side) 

Average No Copies Each Issue During 

Actual No. Copras of Single Issue 

A, Total No. Copies /Net Press Run) 

20,995 

25,305 

8 Paid^ end/or Requested Circulation 

2,665 

2,540 

2. Mail Subscription 

(Paid and/or requested) 

13,539 

14,034 

^Sumor'lOBland 1082““'^ C " - J " l, “" 

16,204 

16,574 

D. Free Distribution by Mail. Carrier or Other Means 

Samples. Complimentary, and Other Free Copies 

389 

3,152 

E. Total Distribution ( Sum of C and D) 

16,593 

19,726 

F. Copies Not Distributed 

792 

814 

2. Return „om New, Agent, 

3,610 

4,765 

G. TOTAL (Sum of E, FI and 2-should equal net press run shown in A) 

20,995 

25,305 

" , „ Signature and Title ot Editor, Publisher, Business Manager, or Owner 

1 certify that the statements made by /Vy 

m. .bo». ere correct end complete /jfdtujL.. ?7C}e>cld/ 


PS Form 3526. Feb 1989 (Seelnstntctiond^n reverse) 


November 1992 
















































































DOS file access requirements. Increase 
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Listing 1 continued 


for (loop = 0, regs.h.ah = 1; loop < 5 && regs.h.ah !* 0; loop++) 

{ 

regs.h.ah = EMS_DEALLOCATE_PAGES; 
regs.x.dx * handle; 
int86(0x67, Aregs, Aregs); 
if (regs.h.ah == 0) 

return(TRUE); /* success */ 

I 

return(FALSE); /* failure */ 

} 

j ********************************************************************** 

* EMS Get Page Frame Segment Address * 

**********************************************************************/ 

BOOL EmsGetPageFrame(void) 

I 

union REGS regs; 

regs.h.ah = EMS_PAGEFRAME_SEGMENT; 

1nt86(0x67,Aregs,Aregs); 

return(regs.h.ah != 0 ? FALSE:regs.x.bx); /* return segment of pageframe */ 

} 

j ********************************************************************** 

* EMS Installed? * 

********************************************.******..**.******..******y 

BOOL Emslnstalled(void) 

I 

BOOL retVal = FALSE; 

Int handle; 
union REGS regs; 

1 f (_dos_open(“EMMXXXXO\ 0 RDONLY, ihandle) == 0) 

{ 

regs.h.ah = 0x44; /* dos function 44h */ 

regs.h.al - 0x00; 

regs.x.bx - handle; /* file handle */ 

int86(0x21,tregs,tregs); /* issue interrupt */ 

_dos_close(handle); 

/* Error or Not Device Driver? */ 
if ((regs.x.cflag J 0x01) == 0 At (regs.x.dx t 0x80)) 

{ 

regs.h.ah =■ EMS_MANAGER_STATUS; 

1nt86(0x67, tregs, tregs); /* Is Driver Ready for Action? */ 
retVal - (regs.h.ah == 0) ? TRUE:FALSE; 

) 

) 

return(retVal); 

) 

I ********************A************************************************* 

* EMS Map Logical Page to Physical Page * 

**********************************************************************j 

BOOL EmsMapPage(int handle, int physical_page, int logical_page) 

{ 

union REGS regs; 

regs.h.ah - EMS_MAP_PAGE; 

regs.h.al = (char) phys1cal_page; 

regs.x.bx * logical_page; 

regs.x.dx = handle; 

int86(0x67, Aregs, Aregs); 

return(regs.h.ah == 0 ? TRUE:FALSE); 


* Peek Memory Into Buffer * 

**********************************************************************/ 
void Peek(1nt segment, int offset, unsigned length, void far ^buffer) 

{ 

movedata(segment, offset, FP SEG(buffer), FP OFF(buffer), length); 

} 

/********************************************************************** 

* Poke Buffer Into Memory * 

**********************************************************************/ 
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Listing 1 continued 


void Poke(int segment, int offset, unsigned length, void far *buffer) 

{ 

movedata(FP SEG(buffer), FP OFF(buffer), segment, offset, length); 

} 

/********************************************************************** 

* Main Program * 

********************************************************************** j 

int main(int argc, char *argv[]) 

{ 

MCB saveMcb, mcb; 

WORD emsPageFrame, emsHandle, emsPages; 
unsigned loop, segment; 
char parameter[20]; 

/****************************************************************** 

* Correct Perms? Is EMS Installed & Ready? * 

****************************************************************** J 

if (argc <- 2) 

Fail("\nUSAGE: LOADHI stubTSR emsTSR [parms ...]\n"); 

if (Emslnstal1ed() *= FALSE) 

Fail ("\nEMS Not Available.V); 

y****************************************************************** 

* Allocate and MAP 4 EMS Pages (4 * 16K = 64K) * 

****************************************************************** J 

emsPageFrame = EmsGetPageFrame(); /* Locate Page Frame */ 

emsPages = 4; 

if ((emsHandle = EmsAllocatePages(emsPages)) == FALSE) /* enough EMS? */ 

Fail("Could Not Allocate EMS Pages.\n"); 

for (loop = 0; loop < emsPages; loop++) /* map 4 allocated pages */ 
EmsMapPage(emsHandle, loop, loop); 

j ****************************************************************** 

* Save a Copy of the Memory Control Block Located After Us * 

****************************************************************** J 

segment = _psp - 1; 

Peek(segment, 0, sizeof(MCB), &mcb); 
segment += (mcb.paragraphs + 1); 

Peek(segment, 0, sizeof(MCB), &saveMcb); 

j ****************************************************************** 

* Make the Next Memory Control Block Unusable * 

****************************************************************** j 

Peek(segment, 0, sizeof(MCB), &mcb); 
mcb.signature * 'M 1 ; 
mcb.pspOfOwner * _psp; 

mcb.paragraphs * emsPageFrame - segment - 1; /* Next MCB is EMS Page Frame */ 

Poke(segment, 0, sizeof(MCB), &mcb); 

J ****************************************************************** 

* Put a Fake MCB in the EMS Page Frame. * 

****************************************************************** j 

mcb.signature * 'Z'; 
mcb.pspOfOwner = 0; 
mcb.paragraphs = OxFFE; 

Poke(emsPageFrame, 0, sizeof(MCB), &mcb); 

y****************************************************************** 

* Load TSR in EMS Page Frame * 

******************************************************************i 

spawnvp(P_WAIT, argv[2], &argv[3]); /* EMS_TSR [parms ...] */ 

/ ****************************************************************** 

* Restore Conventional Memory to its Original State * 

****************************************************************** j 

Poke(segment, 0, sizeof(MCB), &saveMcb); 

j ****************************************************************** 

* Load Stub TSR in Conventional Memory * 

****************************************************************** j 

sprintf(parameter, "%d", emsHandle); 

execlp(argv[l], argv[l], parameter, NULL); /* D0S_TSR emshandle */ 
return(0); 


/* End of File */ 


generates a custom stub program. That 
would effectively remove the require¬ 
ment for hand-tailored stub programs. 
Special care must be taken to maintain 
the continuity of interrupt chaining, be¬ 
cause some interrupts (such as INT 21 h 
AH=31h) do not return to their callers. 
The same technology applies to device 
drivers as well. Imagine replacing 
smartdrv.sys or network drivers with a 
1Kb stub. 

Many applications improve their ef¬ 
ficiency with overlays —groups of func¬ 
tions loaded and discarded upon 
demand from disk or memory. You 
could write an EMS-based TSR that 
provides Application Program Interface 
(API) services to other programs, essen¬ 
tially becoming a DOS Dynamic Link 
Library (DLL). Whenever your program 
requires a particular service, it inter¬ 
rupts the stub, which maps its “DLL” 
into the page frame and performs some 
relevant action. That permits multi¬ 
megabyte programs without the disk¬ 
intensive I/O of most overlay managers. 

Tradeoffs 

Shuttling programs between real and 
expanded memory incurs a slight per¬ 
formance penalty, measured by the in¬ 
efficiency of the EMS device driver. 
Smart stub programs can often mitigate 
any performance loss by forwarding 
only critical events to their EMS-based 
partners and handling all others (and 
performance is, in the final analysis, a 
highly subjective matter). Another 
tradeoff is that the EMS page frame 
takes away 64Kb bytes from UMB 
memory. Unless you are loading more 
than 64Kb worth of EMS-based TSRs, 
you are actually using more memory 
than otherwise. Weigh these tradeoffs 
carefully against potential memory gains. 

Conclusion 

Recent advances in DOS 5.0 and 
other products yield additional amounts 
of memory, but the real-mode architec¬ 
ture is finite and crowding quickly. This 
article has shown a simple, portable, 
and relatively painless means of moving 
DOS programs into expanded memory. 
It doesn't rely on proprietary hardware 
tricks but rather on overlooked 
capabilities in most PCs, which gives 
both DOS and Windows users greater 
environmental flexibility. 
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Listing 2 emsjsr.c - Body of expanded memory TSR 

/* 

void (interrupt _far Int60Handler)(void) 


* Title: EMS TSR.C * 

t 

int row - (rand() & 15), column ■ (rand() & 63); 

/* Random row & column */ 

* Author: Thomas W. Olsen * 



* Copyright 1992. All Rights Reserved * 

Prntln(row, column, "Hello from EMS!", 78); 


* Version: 1.0 * 

return; 


* Compiler: Microsoft C v6.0a * 

i 


* cl /AS /Gs /W3 /Zi EMS TSR.C 



* * 

int main(int argc, char *argv[]) /* Here's the TSR format: */ 

* Info: This program is loaded by L0ADTSR.C into the EMS page * 

i /* 

CODE */ 

* frame. When invoked via INT 60H, it displays a message * 

extern unsigned end; /* 

STATIC DATA */ 

* at a random screen location. * 

unsigned far ‘upperLimit; /* 

STACK */ 

* * 

unsigned paragraphs, actual, stackSize; /* 

HEAP */ 

*/ 

upperLimit - &end; /* top of static data */ 

linclude <dos.h> 

stackSize - ((stackavail () + 2048) / 2048) * 204 

3; /* compute stack size */ 

linclude <string.h> 

paragraphs * (FP SEG(upperLimit) - psp) + (FP OFF(upperLimit) ♦ 

linclude <stdlib.h> 

stackSize) / 16 + 1; 


linclude <malloc.h> 

dos setvect(0x60, Int60Handler); /* se 

: INT 60h vector to 


/* our handler */ 

void Prntln(int row, int column, char ‘message, int color) 

dos setblock(paragraphs, psp, factual); /* 

relinquish unused heap */ 

i 

dos keep(0, paragraphs); /* terminate & stay resident */ 

int far ‘videoPtr - (int far *) (OxBfJOOOOOOL ♦ (row * 160 ♦ column * 2)); 

return(-l); /* error must have occurred */ 

int loop; 

) 



/* End of File */ 


for (loop - 0; message[loop] !» ' \0 1 ; loop++, videoPtr++) 



‘videoPtr - ((color « 8) | message [1 oop] ); /* Direct Video Write */ 



return; 

i 
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Listing 3 stubjsr.c — Conventional memory stub for EMS TSR 


/* 

************************************************************************* 


* Title: 

STUBJSR.C 

* 

* Author: 

Thomas W. Olsen 

* 

* 

Copyright 1992. All Rights Reserved 

* 

* Version: 

1.0 

* 

* Compiler: 

Microsoft C v6.0a 

* 

* 

cl /AS /Gs /W3 /Zi STUBJSR.C 

* 

* 

* Info: 

This program is loaded by LOADHI.EXE into conventional 



* memory and serves as a conduit to the EMS TSR program in * 

* expanded memory. STUB_TSR is responsible for saving the * 

* EMS context, mapping EMS_TSR into the page frame, * 

* branching to its entrypoint, and restoring the EMS * 

* context on the way out. LOADHI.EXE passes the emsHandle * 

* for EMS_TSR as a commandline parameter to STUB TSR. * 

* Usage: STUB_TSR emsHandle (ie. STUB_TSR 1 ) * 

************************************************************************* 

*/ 

♦include <dos.h> 

♦include <string.h> 

♦include <stdlib.h> 

♦include <malloc.h> 


typedef unsigned int BOOL; 

♦define TRUE 1 

♦define FALSE 0 

void (interrupt far *01dKeyboardIntHandler)(void); 

unsigned EmsHandle; 


void (interrupt _far KeyboardIntHandler)(void) 

{ 

static char far *keyboardShiftFlags ■ (char far *) 0x00400017L; 

static union REGS regs; 

static int loop; 

static BOOL reentryFlag * FALSE; 

(*01dKeyboardIntHandler)(); /* Forward to Previous Int Handler */ 

if (reentryFlag TRUE || /* Are we becoming Reentrant? */ 

(*keyboardShiftFlags & OxOC) !- OxOC) /* <Alt-Ctrl> Pressed? */ 
return; 


reentryFlag * TRUE; 


regs.h.ah « 0x47; 
regs.x.dx - EmsHandle; 
int86(0x67, &regs, &regs); 

for (loop * 0; loop < 4; loop++) 

( 

regs.h.ah * 0x44; 
regs.h.al ■ (char) loop; 
regs.x.bx - loop; 
regs.x.dx - EmsHandle; 
1nt86(0x67, &regs, &regs); 

i 


/* LIM EMS: Save Mapping Context */ 


/* LIM EMS: Map Page */ 

/* Set Physical Page No. */ 
/* Set Logical Page No. */ 


int86(0x60, &regs, &regs); /* Call the TSR in the EMS page frame */ 

regs.h.ah = 0x48; /* LIM EMS: Restore Mapping Context */ 

regs.x.dx - EmsHandle; 
int86(0x67, &regs, &regs); 


reentryFlag ■ FALSE; 

} 


/* Here's the TSR format: */ 
/* CODE */ 

/* STATIC DATA */ 

/* STACK */ 

/* HEAP */ 

if (argc < 2) 
return(-l); 


int main(int argc, char *argv[]) 

{ 

extern unsigned end; 

unsigned _far *upperLimit; 

unsigned paragraphs, actual, stackSize; 


EmsHandle ■ atoi(argv[l]); 

upperLimit - &end; /* top of static data */ 

stackSize - ((stackavail() + 2048) / 2048) * 2048; /* compute stack size */ 

paragraphs - (FP_SEG(upperLimit) - _psp) + (FP_OFF(upperLimit) + stackSize) / 16 + 1; 
OldKeyboardlntHandler - _dos_getvect(0x09); /* get old INT 2Fh vector */ 

_dos_setvect(0x09, KeyboardlntHandler); /* set INT 2Fh vector to our handler */ 

_dos_setblock(paragraphs, _psp, iactual); /* relinquish unused heap */ 
_dos_keep(0, paragraphs); /* terminate & stay resident */ 

return(-1); /* error must have occurred */ 


/* End of File */ 
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New Products 

Industry-Related News & Announcements 


ProtoView Adds MFC Support 

ProtoView Development Co. has released ProtoGen v3.0 
for Microsoft Foundation Class (MFC) code generation. Proto- 
Gen provides snap-in code generation in order to support 
more than one programming language. This version includes 
a new code generator for Borland’s Turbo Pascal for Win¬ 
dows. 

ProtoGen provides a menu designer and an interactive 
test mode. The package allows you to place controls on the 
main window and supports custom code regeneration. Proto¬ 


Gen is compatible with Windows 3.1 and the Win32 API, and 
supports Microsoft, Borland, and Zortech compilers. The pack¬ 
age also provides runtime diagnostics for MFC 

ProtoGen v3.0 costs $199 and includes code generators 
for ANSI C, Microsoft Foundation Classes for C++, Borland Ob¬ 
ject Windows C++, and Turbo Pascal. Current users can 
upgrade for $49.95. For more information, contact Proto¬ 
View Development Co., 353 Georges Road, Dayton, NJ 
08810, (908) 329-8588; (908) 329-8624. 


Winpro/3BC++ Provides Windows Prototyping 


Winpro/3BC++ is a Windows-hosted WYSIWYG Windows 
application prototyper, resource manager, and C++ code gen¬ 
erator. As an application prototyper, Winpro/3BC++ displays 
a working model of your application as you build your user 
interface. At all times, you have the actual look and feel of 
the application you are designing and developing. 

As a resource manager, Winpro/3BC++ lets you create, 
copy, or rename resources. The product's built-in resource 
editors help you design and modify the main window, string 
table, accelerator tables, and menus. You can configure 
Winpro/3BC++ to work with the resource editor of your 
choice to create and edit dialogs, icons, cursors, bitmaps, and 
fonts. By default, Winpro/3BC++ supports the Borland 
Resource Workshop (with support for Borland's custom con¬ 
trols) or the Whitewater Resource Toolkit 

As a code generator, Winpro/3BC++ generates com¬ 
mented ObjectWindows C++ code that implements the user 


interface you have prototyped. The product generates C++ 
source files, header files, a module definition file, a makefile, 
and a documentation file. Once you generate code for your 
initial prototype, you can start adding application-specific 
code. Regeneration markers in the generated code allow 
you to change your interface design and preserve your chan¬ 
ges, even when you use Winpro/3BC++ to regenerate the 
source code, after making further changes to the user inter¬ 
face. The code generator is modifiable; you can customize 
the code format and variable- and function-naming conven¬ 
tions, insert new code generation instructions, alter existing 
code generation instructions, and change the number of 
source files generated. 

Winpro/3BC++ costs $249.95 and requires Windows 3.x 
and Borland C++ v3.x with Application Frameworks. For more 
information, contact Xian Corporation, 625 N. Monroe St, 
Ridgewood, NJ 07450, (201) 447-3270; FAX (201) 447-2547. 


MetaWare Unveils 32-bit C++for Extended DOS 


High C/C++ Extended DOS is a 32-bit, globally optimizing 
C/C++ compiler for creating 80386/80486 applications that 
run in the DOS-extended environments provided by Phar 
Lap’s 3861 DOS Extender or Windows 3.x enhanced-mode 
DOS shells. The C++ compiler tracks the evolving ANSI C++ 
standard and already includes support for templates. 

High C/C++ includes the 32-bit Windows 3.x Application 
Development Kit (ADK), which allows you to convert your ex¬ 
isting Windows 3.x applications to 32-bit applications with 
minor source changes. The ADK includes a supervisor that 
handles the translations necessary when your 32-bit code 


calls Windows functions or other 16-bit DLLs. You can use 
the MetaWare debugger to debug your 32-bit application 
running under Windows 3.x. 

MetaWare High C/C++ costs $795 and includes the Meta- 
Ware source-level debugger, extended-DOS execution 
profiler, the ADK, and Rogue Wave’s Tools.h++ class library. 
For $995 you can purchase the same package with Phar 
Lap’s 3861 DOS Extender bundled in. For more information, 
contact MetaWare Inc., 2161 Delaware Avenue, Santa 
Cruz, CA 95060-5706, (408) 429-6382; FAX (408) 429-9273. 
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Communications Library Moves to Windows 


Magna Carta Software has released their C Communica¬ 
tions Toolkit/Windows, a C developers library for serial com¬ 
munications under Windows. The library supports single or 
multiport communications under Windows and works with 
all Hayes-compatible modems. The library supports data 
transmission and reception, flow control, and a variety of file 
transfer protocols, including XMODEM, YMODEM, ZMODEM, 
and Kermit 


C Communications Toolkit/Windows costs $299.95. The 
library supports Borland C++, Turbo C++, Microsoft C/C++, and 
Microsoft Quick C for Windows. The package comes with full 
commented, source code, 600 pages of documentation, and 
a 30-day money-back guarantee. For more information, con¬ 
tact Magna Carta Software, P.O. Box 475594, Garland, TX 
75047-5594, (214) 226-6909. 


Datalight Ships Remote Debug Tool 

ROMView is a new remote debugging tool that allows 
developers to start remote debugging on a standalone tar¬ 
get system without tying up target system serial ports or 
RAM. ROMView maps ROM, RAM, and several I/O devices into 
the ROM socket space on a target system. The RAM is 
mapped to lower addresses and the ROM into higher addres¬ 
ses so that it can hold the boot software. ROMView also 
maps device control registers into the ROM area; these 
registers manage an 8250 UART, switches, and LEDs. The 
switches and LEDs allow low-level program I/O during testing. 

To connect ROMView, you plug a pod into the target sys¬ 
tem ROM socket and connect ROMView to the memory 


write line. ROMView connects to the remote PC via COM1 or 
COM2. ROMView comes with a ROM that includes the Turbo 
Debugger remote kernel and Datalight’s RDEB remote kernel 
The ROM also includes self-test software to verify that 
ROMView is functional. 

ROMView costs $395 and comes with the ROMView cir¬ 
cuit board, a disk containing source code to configure the 
kernel, cables, and a users manual. ROMView works with 
both Borland’s Turbo Debugger and Datalight’s RDEB debug¬ 
ger. For more information, contact Datalight, 307 North 
Olympic Avenue, Suite 201, Arlington, WA 98223, (206) 
435-8086; FAX (206) 435-0253. 


Folger Provides COBOL Navigator for Windows 


Folger Development Corporation is shipping COBOL 
Navigator vl.1, a Windows-based tool for COBOL source code 
comprehension, porting, and maintenance. The COBOL 
Navigator helps the developer comprehend the function of 
unfamiliar COBOL source programs, navigate through the 
source code, and track test versions. The package allows 
developers to quickly find program constructs, helping them 
visualize how large programs work. 

The COBOL Navigator integrates the functions of a syntax- 
directed browser with a multiwindow text editor and a per¬ 
sonal version control system. The tool lets programmers 
quickly locate specific variable declarations, program entry 


points, paragraph names, and section names in multifile 
COBOL programs. Browsing is as simple as pointing and click 
ing. Programmers can keep track of previous source version: 
and the COBOL Navigator displays changes to the current vei 
sion in a different color. 

COBOL Navigator vl.1 costs $349 and works with Win¬ 
dows 3.x. The browser supports ANSI '85, ANSI 74, IBM OS/Vf 
COBOL, IBM VS COBOL II, Micro Focus, and Microsoft COBOL 
For more information, contact Folger Development Corporc 
tion, 801 W. El Camino Real, Suite 262, Mountain View, CJ 
94040,(415) 969-3191. 


TEGL Updates DOS GUI Toolkit 

TEGL Systems Corporation has released the TEGL Win¬ 
dows Toolkit v3.0. New features include a separation of the 
toolkit into four components: graphics interface, virtual 
memory manager, font and icon editors, and graphical user 
interface. This version comes with new documentation and 
source code. 

TEGL is also offering a protected-mode version of the 
toolkit that works with Borland C v2.0 or v3.0 using Phar Lap 


286, Watcom 386 using Phar Lap 386, and Intel’s Code 
Builder. The protected-mode version of the toolkit also in¬ 
cludes source code. 

TEGL v3.0 costs $249, or $499 for the protected-mode ve 
sion. For more information, contact TEGL Systems Corpora¬ 
tion, Suite 780-789 West Pender Street, Vancouver, 
British Columbia, Canada V6C 1H2, (604) 669-2577; FAX 
(604) 688-9530. 


Tools Aid Nationalization and Authoring Help 


Softronics, Inc has released two new tools for Windows 
and OS/2 developers. UniversalHelp allows developers to cre¬ 
ate a single version of online help that can be exported as 
either a Windows RTF or an OS/2 IPF file. UniversalHelp is an 
interactive WYSIWYG authoring environment that simulates 
the Windows help system and lets you create hypertext con¬ 
trols, test hypertext jumps, and create popup definition 
topics interactively. 

UniversaINLV helps translate GUI elements, such as 
dialogs and menus, into National Language Versions. It 
provides side-by-side windows so you can view the original 
GUI element on the left and a translating window on the 


right UniversaINLV works with the help of two utilities. The 
first utility extracts GUI text from your original source code 
for UniversaINLV to operate on. After you finish translating 
these strings, another utility replaces the original text in you 
source code with the translated versions. UniversaINLV can 
export National Language Versions of Windows RTF, OS/2 IPF 
and GUI source files. 

UniversalHelp costs $645 and UniversaINLV costs $845. 
Both require Microsoft Word for Windows v2.0. For more in¬ 
formation, contact Softronics, Inc, 5085 List Drive, 
Colorado Springs, CO 80919, (800) 225-8590 or (719) 593- 
9540; FAX (719)548-1878. 
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object-Menu Supports More Compilers, Graphics Libraries 


Object-Menu is a C++ class library designed to help 
developers add a graphical user interface to any DOS C++ pro¬ 
gram. The object-Menu user interface is similar in look and 
feel to OSF/Motif. object-Menu provides windows, menus, 
tear-offs, dialog boxes, floating menus, and more. object- 
Menu also provides predefined classes to implement com¬ 
mon GUI elements such as a file scroller window, a file 
chooser menu, analog sliding input controls, toolbars, spin 
controls, and combo boxes. The package supports both 
mouse and keyboard and developers can customize dimen¬ 
sion, color, text style, and dress style of all items to create a 
unique look. The package also includes event and window 


managers, context-sensitive help, and an interactive hyper¬ 
text help window. 

In addition to its support for Borland C++ and Microsoft 
C++, object-Menu now also supports Metaware C++ and Wat- 
com C++ compilers for 32-bit protected-mode support object- 
Menu has also expanded its graphics library support to 
include MetaWindow (Metagraphics Corp.), Genus GX 
graphics (Genus Microprogramming Inc), and HALO graphics 
(Media Cybernetics). 

object-Menu costs $369; source code for the library costs 
an additional $529. For more information, contact Island Sys¬ 
tems, 7 Mountain Road, Burlington, MA 01803, (617) 273- 
0421; FAX (617) 270-4437. 


WinTscrn Offers Windows Utility Functions 


WinTscrn is a new library designed to enhance the Win- WinTscrn costs $99.95. For more information, contact Tri- 

dows API. WinTscrn offers over 100 screen I/O functions to dent Infotech (USA), Inc., 80 Grand Avenue, Suite 200, Oak- 

support menu management, dialog box manipulation, and land, CA 94612-3743, (510) 451-6531; FAX (510) 451-5842. 

user messaging. Another 70 functions support file I/O, string 
manipulation, and programming utilities. 

C, C++, Pascal, and Fortran Compilers for NT 


Microway has announced Windows NT versions of its 
NDP 32-bit compilers. The compilers support numeric 
coprocessors and generate globally optimized 32-bit code. 
The Windows NT versions of the compilers are written in 
NDP Pascal and C/C++ and run as 32-bit applications. The 
compilers can produce both linkable object modules and as¬ 
sembly language source code. 

NDP C/C++ NT includes multiple dialects: K&R C, BSD C, 
ANSI C, and AT&T C++ v2.1. It features a function inliner, clas¬ 
ses, single and multiple inheritance, constructors and 
destructors, and function and operator overloading. The 
C/C++ compiler contains a built-in assembler you can use to 
alias variables to specific 80486 registers. 

NDP Fortran-386 runs with all popular coprocessors, in¬ 
cluding the higher performance EMC devices from Weitek 


and Cyrix, and the Intel i860. The compiler supports Fortran- 
77 with VMS, BSD, and MS extensions. The compiler supports 
all VMS extensions except quad precision, parallel constructs, 
and the VAX/ISAM hooks. 

NDP Pascal NT implements the ANSI/IEEE standard 
770X3.97-1983, a superset of Niklaus Wirth's Pascal. It in¬ 
cludes extensions from Berkeley 4.2 BSD Pascal and the 
British Standards Institute (BSI) Level 0, a preprocessor, 
separate compilation of modules, and interfaces to the 
Microway C library. 

The compilers will be available in prerelease form during 
the Windows NT beta. Each prerelease compiler costs $295. 
In final release, each compiler is expected to cost $595. For 
more information, contact Microway, P.O. Box 79, Kingston, 
MA 02364, (508) 746-7341; FAX (508) 746-4678. 


Graphics and Data Analysis Engine DLL Released 


MicroCal Inc. has released LabEngine, the DLL version of 
Origin, a graphics and data analysis tool for scientists, en¬ 
gineers, financial analysts, and anyone who needs to graph 
and analyze large amounts of technical data. Two versions 
of the LabEngine DLL are available: a less expensive basic ver¬ 
sion (LabEngine BV) and a more complete enhanced version 
(LabEngine EV). 

LabEngine BV provides a basic level of functionality. The 
developer can provide any of Origin's graphics functionality 
to the user in the form of templates. The user cannot edit 
those templates. 

LabEngine EV provides all the features of LabEngine BV 
plus advanced analysis capabilities, including non-linear- 

CELECT Enters Custom Control Market 

CELECT Software has released a package of five DLLs 
designed to enhance the functionality and appearance of 
Windows applications. Four of the DLLs are custom controls 
and one contains code to aid in executing other DOS or Win¬ 
dows applications from your Windows application. 

The spin box control lets users increment and decrement 
through numbers, dates, time-of-day, or user-defined lists. 
The multicolumn list box makes it easy to let users view and 
manipulate tabular data. The text editor control lets you add 
a full-featured editor window to your application with a 
single function call. The line object editor control provides 


least-squares curve fitting, polynomial regression, FFT, and 
smoothing. The user can edit and save templates. LabEngine 
EV fully supports Origin's point-and-dick interface. 

The LabEngine Developer's Kit costs $795 and includes a 
copy of Origin and a copy of the LabEngine EV DLL Lab¬ 
Engine BV DLL costs $50 per DLL, or $ 12,000 per year for a 
license to duplicate and distribute unlimited copies. Lab¬ 
Engine EV DLL costs depend upon volume and run from $130 
to $450 per copy. For more information, contact MicroCal In¬ 
corporated, 22 Industrial Drive East, Northampton, MA 
01060, (413) 586-7720; FAX (413) 586-0149. 


graphic display and manipulation of sets of objects that have 
value and range, such as task dates, salary ranges, and so 
on. The modal spawning library provides lets you execute 
any DOS or Windows application and wait for it to complete 
before proceeding. 

The Out of Controls DLL costs $229, or $459 with C source 
code, and comes with a 30-day customer satisfaction guaran¬ 
tee. For more information, contact CELECT Software, 7500 
Innovation Way, Mason, OH 45040- 9699, (513) 573-6800; 
FAX (513) 573-6888; BBS (513) 573-6890. 
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CCC/Manager Offers Version and Configuration Control 


CCC/Manager is a new PC product for Windows and OS/2 
that helps programmers manage software changes during 
software development and maintenance. CCC/Manager lets 
programmers store, retrieve, and manipulate multiple ver¬ 
sions of files, from source files to executables and spread¬ 
sheets. The product provides check-in and check-out for 
group software development 

CCC/Manager for Windows and OS/2 provides virtual 
views for each version of an application. It fully supports 

SlickEdit Demos on Windows NT 

MicroEdge demonstrated their programmer’s editor, Slick- 
Edit for Windows NT, at the Win32 Professional Developers 
Conference. SlickEdit is already available for Windows NT on 
both ’386 and MIPS architectures. Developers attending the 
conference received a demo version of SlickEdit on the 
Microsoft Windows Development Tools CD. In addition to 
Windows NT, SlickEdit is available on DOS, OS/2, UNIX 
386/486, Xenix 286/386/486, Sun Sparc, IBM AIX RS6000, 
Silicon Graphics, and DG Aviion. 

SlickEdit is a full-screen, programmable editor that in¬ 
cludes a typeless REXX-like macro language. The editor 
provides full undo and redo to 32,000 steps, multiple win- 


“branches” and “application snapshots.” Users can imple¬ 
ment individual changes and manage them in a packaged 
format CCC/Manager operates on networks and on stan¬ 
dalone PCs. 

CCC/Manager for Wndows and OS/2 is available at an intro¬ 
ductory price of $595 for a single user; $495 for two or more 
users Corporate licenses are also available. For more informa¬ 
tion, contact Softool Corporation, 340 S. Kellogg Avenue, 
Goleta, CA 93117, (80S) 683-5777 ; FAX (80S) 683-4105. 


dows, the ability to edit multiple files up to one gigabyte, 
Brief and Epsilon emulation, 450Kb of online help, multiple 
clipboards, compiler error message processing, procedure 
tagging, a programmable file manager, command retrieval, 
and the ability to edit Macintosh, UNIX, and DOS ASCII format 
files at the same time. SlickEdit’s 5000 lines of macro source 
code are compatible across all platforms. 

SlickEdit for Windows NT is available now and costs 
$195, which includes free upgrades through the final release 
of Wndows NT. For more information, contact MicroEdge Inc, 
P.O. BOX 18038, Raleigh, NC 27619-8038, (919) 831-0662. 


UNIFACE Adds Cross-GUI Development Support 


Uniface Corporation has introduced the Universal Presen¬ 
tation Interface (UP1), which lets developers build database 
applications that automatically work on computers running 
Windows, Motif, OPEN LOOK, Presentation Manager, and char¬ 
acter mode. UPI is available as part of the new UNIFACE v5.2. 

UNIFACE is a 4GL software development system that 
provides cross-platform portability that is independent of 
DBMS, computer platform, CASE tool, network, operating sys¬ 
tem, 3GL, and now, GUI. UNIFACE allows applications to retrieve 
data from heterogeneous databases simultaneously, while 
maintaining inter-database referential integrity automatically. 


UPI brings to UNIFACE the ability to create UNIFACE user 
interfaces that run without source changes on different GUI 
platforms, from Windows to character mode. Each GUI is sup¬ 
ported by a specific driver that provides applications with all 
the features of that environment 

UNIFACE prices range from $5,000, to $250,000 and GUI 
driver prices range from $350 to $32,000, depending upon 
the hardware platform and configuration. For more informa¬ 
tion, contact Uniface Corporation, 1320 Harbor Bay Parkway, 
Suite 100, Alameda, CA 94501-6556, (800) 365-3608. 


FFE Updates FirstSQL C 

FFE Software has released FirstSQL C V2.10. The product 
now provides ANSI Level 2 Static Embedded SQL with DB2 
and Oracle compatible extensions for Dynamic SQL. The 
FirstSQL Database Engine is available in DLL form for Wndows. 

With new Dynamic SQL support, programmers can now 
create SQL commands at runtime and pass them as strings 
to the FirstSQL Engine for execution. ANSI SQL only specifies 
Static Embedded SQL, but FirstSQL v2.10 uses the de facto 
standard Dynamic SQL commands provided by DB2 and 
Oracle. These include the PREPARE and EXECUTE commands 
and extensions to DECLARE, OPEN, and FETCH. First SQL V2.10 
supports the full DB2 Dynamic SQL command set, including 


Dyadic Ships “Visual APL” 

Dyadic Systems is now shipping Dyalog APL/W, a Win¬ 
dows APL system. Dyalog APL/W is a full 32-bit implementa¬ 
tion of the APL programming language for Windows that 
runs on '386 and ’486 PCs. It supports very large APL vari¬ 
ables and workspaces up to the memory capacity of the 
machine. 

Dyalog APL/W offers a generalized GUI that operates un¬ 
changed under Motif, Presentation Manager, and, in the fu¬ 
ture, other graphical environments. The Windows 
implementation includes a DDE interface (implemented with 


the SQLDA (SQL Descriptor Area). Multiple Windows applica¬ 
tions can access the DLL form of the FirstSQL Database En¬ 
gine at the same time. 

FirstSQL supports Microsoft C/C++ and Borland C/C++ for 
both DOS and Windows and is available for single users or 
for networks. FirstSQL C v2.10 costs $345 for a single-user ver¬ 
sion or $745 for a network version (add $50 to obtain the 
Windows DLL version). The one-time cost for unlimited dis¬ 
tribution is $1,000. For more information, contact FFE 
Software, Inc., P.O. Box 1519, El Cerrito, CA 9 4530, (510) 
232-6800; FAX (510) 237-7433. 


“shared variables” in accordance with the ISO APL standard) 
for integrating APL subsystems with other Windows applica¬ 
tions. Programmers can attach APL callback functions to 
specific events in particular GUI objects. 

Dyalog APL/W costs $1,495; Dyalog APL for Motif costs 
$3,500 for a single-user license-, Dyalog APL for DOS costs 
$1,495. Dyalog APL is distributed and supported in the US 
and Canada by MIPS Software Development, Inc., 33493 
West Fourteen Mile Road, Suite 10, Farmington Hills, Ml 
48331, (313) 661-5000; FAX (313) 661-5826. 
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BEAR Functions; Intercepting UAEs 


^ ote: Here is an interesting letter I received in response to the September Q&A. 

R E the letter in the Sept. '92 issue about SetDeskUallpaperf), I've noticed that 
there’s a “placeholder” function in USER at the same index as the old SetDesk- 
Uallpaper() function, 285. Tracing into this function reveals that it does nothing 
except return a non-zero value in AX. However, old programs that make calls to 
SetDeskUal lpaper() using its INDEX will at least not crash; they'll just fail to set the 
wallpaper. Oddly enough, SetDeskPattern() is handled differently — it appears in 
3.1’s USER as OldSetDeskPattern (), with the same index, 279. 

Interesting note: the name of the function in Windows 3.1 USER is BEAR285. There 
are five other “Bears” in USER: 

Bear Win 3.0 function 


BEAR51 ISTWOBYTECHARPREFIX 

BEAR86 ICONSIZE 

BEAR182 KILLSYSTEMTIMER 

BEAR306 MENUWNDPROC 

BEAR11 SETSYSTEMTIMER 

I bet you thought the only bear in Win 3.1 was the one in the credits screen! 

Neil J. Rubenking 
Technical Editor 
PC Magazine 

Paul Bonneau 


Send questions to Paul via Internet 
as borweau@hyper. hyper, com-, 
from CompuServe: 
>INTERNET:bonneau@hyper. hyper, com-, 
or in care of this magazine at: 

1601 W. 23rd St., Suite 200 
Lawrence, KS 66046-2743. 


Paul Bonneau is Director of Software Development for Hypercube, Inc, #7-4 1 9 Phillip 
St, Waterloo, Ontario, Canada, N2L 3X2. His current project is HyperChem, a molecular 
modelling software package for Windows. Paul has been developing Windows ap¬ 
plications for 5 gears. Much of his expertise was gained at Microsoft, where he imple¬ 
mented a library module used by all of Microsoft’s major Windows applications. 

























Table 1 


Interrupt 

Description 

0 

Divide by 0. 

i 

Debug interrupt Hardware interrupt using Debug 
registers. 

3 

Breakpoint interrupt Int 3 in code stream. 

6 

Invalid opcode. 

12 

Stack fault. 

13 

General protection fault 

14 

Bad page fault Abnormal enhanced mode 
exception. 

256 

Break to debugger (user pressed 
<ctrl>-<alt>-<sys rq>). 


Listing 1 wrapper.asm 


wrapper.asm 

-- Assembly language wrapper for tool help 
interrupt handler. 

— Adapted from MSC 7.0 sample toolhelp program. 
_WrapInterrupt: 

-- Provides a wrapper for the C interrupt 
handler, HandlelnterruptO. 

-- Preserves all registers. 


; Set up values for cMacros 

?PLM = 1 ; PASCAL-style parameter handling. 

?WIN =0 ; No Windows prolog/epilog 

• 286c 

INCLUDE cMacros.INC 
INCLUDE TOOLHELP.INC 

; Functions 
?PLM = 0 

externFP Handlelnterrupt 
?PLM = 1 

externFP TerminateApp 

sBegin CODE 

ASSUMES cs, CODE 

cProc _WrapInterrupt, <FAR, PUBLIC> 
cBegin NOGEN 


push 

bp 

; Create a stack frame 

mov 

bp, sp 


pusha 


; Save all registers. 

mov 

dx, [bp+08] 

; Get interrupt number 

cCall 

popa 

Handlelnterrupt 


pop 

bp 


retf 

1 NOGEN 


; Default action. 


sEnd 

END 

; End of File 


Listing 2 onuae.c 


/* onuae.c */ 
/* -- DLL that outputs a symbolic stack trace of an */ 
/* app causing a UAE. */ 


Listing 2 continued 


I*****************************************************j 
/★★★★★★★★★★★★★★★★★★★★a******************************** j 

/* Header files. */ 

♦include <windows.h> 

♦include <toolhelp.h> 

♦include <w_assert.h> 

I★**★★*★**★★*★★**★****★*★*******★★★★*★★****★★******★*★j 

/» Prototypes. */ 

void _cdecl _export Handlelnterrupt(void); 
void _cdecl _export Wraplnterrupt(void); 
int CALLBACK LibMain(HINSTANCE, WORD, WORD, LPSTR); 
int CALLBACK WEP(int); 

/***************************************************** j 

/* Routines. */ 

j*****************************************************j 

int CALLBACK 

LibMain(HINSTANCE hinsThis, WORD ds, WORD cbHeap, 

LPSTR lsz) 

I*****************************************************i 

/* -- Entry point during initialization. */ 

j***************************************************** j 
{ 

WORD wCS; 

/* No need for MakeProcInstance(), since this is */ 
/* a DLL, after all! */ 

_asm mov wCS, cs; 

Global PageLock((HGLOBAL)wCS); 
return InterruptRegister(NULL, 
(FARPROC)WrapInterrupt); 

} 

int CALLBACK 
WEP(int nExitCode) 

j*****************************************************j 

/* -- Exit proc. */ 

j * * *** * * ★ **★ ★* ★ ★★ ★* * ★★ ★★★ * * * ★★ *★ *★ * ★* ★★ * *** *** * itj 

{ 


WORD 

wCS; 

_asm 

mov wCS, cs; 


GlobalPageUnlock((HGLOBAL)wCS); 
NotifyUnRegister(NULL); 
return 1; 

} 

void _cdecl _export 
Handlelnterrupt(void) 

y*****************************************************y 
/* .. Toolhelp interrupt handler. */ 

/* -- On entry, dx == interrupt number. */ 

j ★★ ★ ** ★★ ** ★ ******* ★ ** *** * * ★ ★* ★★ ★★ **★ ★* ★* *★ ** Itj 

{ 

int wlnterrupt; 

PSTR sz; 

_asm mov wlnterrupt, dx; 

switch (wlnterrupt) 

{ 

default: /* Unknown. */ 

sz = "Unknown interrupt!"; 
break; 
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Listing 2 continued 


case 0: /* Divide by 0. */ 

sz = "Divide by Zero"; 
break; 

case 1: 

sz - "Debug interrupt (1)"; 
break; 


case 3: 

sz = "Breakpoint interrupt (3)"; 
break; 

case 6: 

sz = "Invalid opcode"; 
break; 


A Thanks for the information, Neil. With the debug version 
of Windows 3.1, when you call SetDeskUallPaper (), you 
get a message on the COM port that says “USER: Obsolete 
function SetDeskWallPaperO called.” Or, if you call the old Set- 
DeskPattern(), you get the message “USER: Obsolete function 
SetDeskPattern called: use SystemParametersInfo.” But as you 
point out, the latter performs the same function under 3.1 as 

Listing 3 onuae.rc 


I★**★★★★***********★**★★**★★**★***★*★******★★*★*★★★***j 

/* onuae.rc */ 

/* — Empty resource file. */ 

j ★**★★**★★★*★★★★★**********************★***★★*★******* j 


case 12: 

sz * "Stack fault"; 
break; 

case 13: 

sz = "General protection fault"; 
break; 

case 14: 

sz * "Bad page fault"; 
break; 

case 256: 

sz « "Break to debugger (256) 11 ; 
break; 

I 

_w_assertfail(sz, NULL, NULL, 0); 

I 

/* End of File */ 


Listing 4 onuae.def 


onuae.def 

— Module definition file for UAE handler DLL. 


LIBRARY OnUAE 

EXETYPE Windows 

CODE PRELOAD MOVEABLE DISCARDABLE 

DATA PRELOAD SINGLE 

HEAPSIZE 0 

EXPORTS 

WEP @1 RESIDENTNAME 

_WrapInterrupt @2 


GET THE 

MOST 

FROM 

YOUR 


Windows & DOS 

applications 


H 



Increase the SPEED, POWER, AND PERFORMANCE 
of your Windows and DOS applications with 
Windows/DOS Developer's Journal. 
Month after month, year after year serious 
Windows developers turn to our real world 
solutions. 

Windows/DOS 

□ DEVELOPER S JOURNAL 


913-841-1631 

FAX: 913-841-2624 


WinTfmt: The Latest "Fashion" 
in Edit Controls! 


With WinTfmt, you can format edit controls to display... 

■ Social Security Numbers ■ Zip Codes 

■ Telephone Numbers ■ Dates 

■ Currency (custom symbols) 

■ Numbers (signed, unsigned, decimal) 

• • • AND, MORE IMPORTANTLY • • • 
Customized formats to meet specific needs. 

Whether it's for data entry screens or read-only display purposes, WinTfmt 
transparently supports your applications with little or no programming effort! 
Implemented as a dynamic link library, overhead is minimal. And, you may 
distribute the DLL royalty free with any of your Windows EXEs. 

So, "dress-up" your applications with the latest in edit control fashion for an 
introductor)’price (through 12/31/92) of $39-95 (plusS&H). 

Call, Fax or E-Mail your order today. 

1-800-999-WINT 

510 / 451-5842 (Fax) 70760,2460 (OS) 

Visa/MC/Discover Card 

TRIDENT INF0TECH (USA), INC. 

80 Grand Ave. Suite 200 Oakland, CA 94612 

Windows’" is a trademark of Microsoft Corporation. 

□ Request 131 on Reader Service Card □ 
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Listing 6 w_assert.c 


linclude <windows.h> 
linclude <windowsx.h> 
linclude <toolhelp.h> 
linclude <stdio.h> 
linclude <stdlib.h> 
linclude "w_assert.h“ 
linclude “findsym.h" 

void GetSymbolicName(LPSTR, HMODULE, WORD, WORD); 
void OutputMessage(LPSTR); 

extern HINSTANCE _hlnstance; 

void 

GetSymbolicName(LPSTR lszBuf, HMODULE hmod, 

WORD wSeg, WORD wOff) 

^*****************************************************j 

/* — Given a module handle, and a logical */ 

/* segment/offset, look for a matching .SYM file, */ 

/* and get the symbolic name closest to the */ 

/* address. */ 

***************i 


!********************************** 

i 

char 

szSymbol[256]; 

char 

szSymFile[ MAX PATH]; 

char 

szModule[_MAX_PATH]; 

int 

nfd; 

LPSTR 

lpch; 


/* Sym filename. */ 


szModule[0] * szSymbol[0] = 1 \0 1 ; 

/* Get the path corresponding to the module. */ 
if (GetModuleFileName(hmod, szModule, 
sizeof szModule)) 

{ 

/* Change the module path to have a .SYM */ 

/* extension. */ 
lstrcpy(szSymFile, szModule); 
for (lpch = szSymFile + lstrlen(szSymFile) - 1; 
lpch »* szSymFile; lpch—) 
if (*lpch •* '.') 
break; 

lstrcpy(lpch, “.SYM"); 

if ((nfd * _lopen(szSymFile, 

READ I OF SHARE EXCLUSIVE)) !- -1) 

( 

/* Call findsym.c to look up the symbol */ 
/* name. */ 

FindSymbol(szSymbol, nfd, wSeg, wOff); 
_lclose(nfd); 

1 


Listing 5 makefile 


Listing 6 continued 

fffffffffffffffffffffffffffffffffffffffffffffffffffffff 


/* Format the output string as */ 

## makefile ## 


/* “filename segtoffset symbolname". */ 

## -- Project file for symwalk library. ## 


for (lpch = szModule + lstrlen(szModule) - 1; 

ffffffffffffffffffffffffffffffffffffffffufffffffffffff 


lpch >= szModule; lpch--) 

all: onuae.exe 


if (*1pch -- '|| *lpch — 1 \\ 1 ) 



break; 

.c.obj: 


} 

cl -c -ASw -G2w -Od -Zdpe -W3 -DSTRICT $(DEFS) $< 


wsprintf(lszBuf, ”%s %04X;%04X %s". 

.asm.obj: 


(LPSTR)szModule, wSeg, wOff, ( LPSTR)szSymbol ) ; 

masm -Mx -DmemS=l -Zi $ (DEFS) $*.asm; 


) 

onuae.obj: onuae.c 


void 

wrapper.obj: wrapper.asm 


OutputMessage(LPSTR lszMessage) 

/***************************************************** j 

onuae.exe: onuae.obj wrapper.obj onuae.rc onuae.def 


/* — Our simple, generic output routine. */ 

link /NOD/map onuae wrapper libentry,,, libw \ 


j ***************************************************** j 

sdllcew tool help w_assert # onuae.def 
rc $ (DEFS) onuae 


( 

lstrcat(lszMessage, “\r\n"); 

mapsym onuae 


OutputDebugString(lszMessage); 

} 


void 

_w_assertfail(LPSTR lszMessage, LPSTR lszCondition, 

LPSTR lszFile, int line) 

j*****************************************************j 

/* -- Traces the stack with symbols. */ 

j ***************************************************** j 

{ 

STACXTRACEENTRY ste; 
char szBuf[256]; 

HMODULE hmodThis; 

HINSTANCE hinsThis; 

WORD wSS, wCS, wBP; 

OutputMessage(lszMessage); 

ste.dwSize - sizeof ste; 

_asm mov wSS, ss; 

_asm mov wCS, cs; 

_asm mov wBP, bp; 

if (!StackTraceCSIPFirst(&ste, wSS, wCS, 0, wBP)) 
return; 

/* Get module handle of DLL, so that its */ 

/* functions are not listed in the trace. */ 

_asm mov hinsThis, ds; 

hmodThis = GetlnstanceModule(hinsThis); 

for (;;) 

( 

/* Skip functions in this code. */ 
if (ste.hModule != hmodThis) 

( 

GetSymbolicName(szBuf, ste.hModule, 
ste.wSegment, ste.wIP); 

OutputMessage(szBuf); 

) 

if (!StackTraceNext(&ste)) 
break; 

) 


/* Nothing else to say. 
/* we're done. */ 
OutputMessage("\a\a"); 

} 

/* End of File */ 


Tell the user that */ 


Listing 7 w_assert.h 


/***************************************************** j 

/* -- Interface to w_assert function. */ 


void _w_assertfail (LPSTR, LPSTR, LPSTR, int); 
/* End of File */ 
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Listing 8 findsym.c 



typedef struct 


/* findsym.c 

*/ 

i 



/* — Symbol file walking module. 

V 

WORO 

cparNextSeg; 




WORD 

csym; 




WORD 

cbSymFIrst; 




WORD 

Iseg; 


/* Header files. 

*/ 

WORD 

wReserved2; 




WORD 

*«Reserved3; 


#include <windows.h> 


WORD 

wReserved4; 


#1nclude <windowsx.h» 


BYTE 

f; 


♦include "flndsym.h" 


BYTE 

bReservedl; 




WORD 

cparLineFirst; 




BYTE 

bReserved2; 


/* Types. 

*/ 

BYTE 

bReserved3; 




BYTE 

cbSegName; 


typedef struct 


} SEG; 



WORD cparMapNext; 


typedef struct 


BYTE f; 


i 



BYTE chReserved; 


WORD 

cbOffset; 


WORD segEntry; 


BYTE 

cbSymName; 


WORD ccns; 


} SYM; 



WORO cbConstOffset; 





WORD cseg; 


/*•»**•*•• 



WORD cparSegFIrst; 


/* Prototypes. 

*/ 

BYTE cbMaxSym; 


/***. 



BYTE cbModName; 


void GetSymbolNameSzW(int, LPSTR, WORD); 


) HAP; 


BOOL FPositionF11e(int. WORD, WORD. WORO); 



it did on 3.0. In fart, both SystemParametersInfo() and Old- 
SetDeskPattern() call the function at offset 0x0b06 in code 
segment 41 to do the actual work. 

Under retail Windows, BEAR285 is implemented with: 

push DS 

mov AX, DGROUP 


mov ds, ax 
pop ds 
retf 0004 

So the return value is USER’S data segment selector (i.e., its 
instance handle). This means that BEAR285 is probably the 
fastest exported function to return USER’S DSl 
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Q l am a UNIX programmer (and now a novice Windows 
programmer), and I developed a very simple tool that 
helps me when my program crashes. This tool is a signal 


handler that traps SIGSEGV and SIGBUS signals, translates the 
program counter at which the fault occurred in the symbolic 


Listing 8 continued 


int FReadSymFi1eHeader(1nt, HAP FAR *); 


int 

FReadSy»F11eHeader(Int nfd, MAP FAR * 1paap) 

/* — Reads in the first MAP into the address */ 

/* provided, and does some basic sanity checks to */ 

/* see if the file is ■legitimate''. */ 

< 

WORD wMapNext; 


_11seek(nfd, 0, 0); 

Tf (_1read(nfd, lpmap, sizeof ‘lpmap) !■ 
sizeof ‘lpmap) 
return FALSE; 

/* A very limited form of sanity checking. The */ 
/* first two tests assume the .SYM file is for a */ 
/* Windows program. Those two tests are not */ 

/* relevant for DOS. 

if (lpmap->segEntry >255 || lpmap->cseg >255 || 
lpmap->f & 1 || lpmap->f > 2) 
return FALSE; 

/* Seek to the next neader, which is always the */ 
/* "last MAP". Read in the "next" field, and */ 

/* verify that it's a 0. */ 

_11seek(nfd, lpmap->cparMapNext * 16L, 0); 
return _1read(nfd, &wMapNext, sizeof wMapNext) 
sizeof wMapNext && wMapNext -■ 0; 

} 


If (lrgcbSymOffset ■■ NULL) 
return; 

/* Read in the "offset array". */ 

_11seek(nfd, cbSegBase ♦ seg.cbSymFirst, 0); 

_1read(nfd, lrgcbSymOffset, 
seg.csym * sizeof ‘lrgcbSymOffset); 

/* Read in each SYM, using the "offset array". */ 

/* Stop when we find oine that occurs after the */ 

/* passed in lszBuf. */ 

for (isym -0; Isym < seg.csym; isym++) 

( 

llseek(nfd, cbSegBase + lrgcbSymOffset[isym], 

" 0 ); 

_1read(nfd, Bsym, sizeof sym); 

Tf (sym.cbOffset > cbOffset) 
break; 

) 

/* If isym«0, then the offset we're looking for */ 
/* Is before any of the symbols. If 1sym>0, then */ 
/* back up one symbol, and format its */ 

/* information into the "lszBuf* parameter. */ 

If (Isym !» 0) 

{ 

_11seek(nfd, 

CbSegBase ♦ lrgcbSymOffset[Isym - 1], 0); 

_1read(nfd, isym, sizeof sym); 

_lread(nfd, szT, sym.cbSymName); 
szT[sym.cbSymName] - '\0'; 
wsprintf(lszBuf, "%s ♦ %04X". (LPSTR)szT, 
cbOffset - sym.cbOffset); 


BOOL 

FPositionFile(int nfd, WORD iseg, WORD cseg. 


WORD cparSegFirst) 

/* — Positions the file pointer at the SEG */ 

/* corresponding to the logical segment */ 

/* parameter. */ 

{ 

SEG seg; 


/* Iterate through all the segs. */ 
while (cseg—) 

{ 

/* Seek to the "next" seg, and read it in. */ 
_U seek (nfd, cparSegFirst * 16L, 0); 

_1read(nfd, iseg, sizeof seg); 

/* If It's the right seg, then back up the */ 
/* file pointer, and return success. */ 
if (seg.iseg — iseg) 

{ 

_llseek(nfd, -(int)sizeof seg, 1); 
return TRUE; 

) 

/* Go to next SEG. */ 
cparSegFirst ■ seg.cparNextSeg; 

) 

/* If we got here, then we didn't find it. */ 

/* Return failure. */ 
return FALSE; 

) 


void 

GetSymbolNameSzW(int nfd, LPSTR lszBuf, WORD cbOffset) 


/* — Uses the SEG to look for the nearest symbol */ 
/* that's less than or equal to the passed in */ 
/* offset. */ 
/* — Returns symbol name in "lszBuf". */ 


{ 

SEG seg; 

SYM sym; 

DWORD cbSegBase; 

LPWORD lrgcbSymOffset; 

WORD isym; 

char szT[256]; 

/* Remember the SEG offset, then read it in. */ 
cbSegBase * _llseek(nfd, 0, 1); 

_1read(nfd, iseg, sizeof seg); 

/* Allocate space to hold the "offset array". */ 
lrgcbSymOffset ■ GlobalAllocPtr(GHND, 
seg.csym * sizeof ‘lrgcbSymOffset); 


} 

/* Free the space allocated for the "offset */ 
/* array". */ 
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bibliography that will become an 
indispensible resource to you. 

HIGHLY TECHNICAL 
HIGHLY FOCUSED 


MS-dos 

system programming 


Every entry is written by 
working programmers for 
working programmers. In¬ 
cluded are compiler- 
specific insights that will 
save you hours of work. 
Find out how to exploit spe¬ 
cial Turbo C features to 
simplify device drivers. Plus 
a bibliography designed to 
help the serious program¬ 
mer develop a personal 
library of MS-dos literature. 


edited by 

Robert ward 


Nitty Gritty Coverage on 
These How-to Topics 


Critical Error Handling 
Customizing the DOS 
Boot Strap 
Interrupt-Driven I/O 
Manipulating 
Environmental Variables 
Event Timing 
Writing TSRs 
Controlling the Disk 
Hardware 
Writing Device 
Drivers 


Released July 1991, 240 pp. ISBN 0-923667-20-2 

DIRECTLY Windows/POS 

FROM Q DEVELOpER - s JOURNAL 


913 - 841-1631 

FAX: 913-841-2624 
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GlobalFreePtr(lrgcbSy«Offset); 
} 


FindSy»bol(LPSTR lszSyabol, Int nfd, WORD iseg. 
WORD cbOffset) 


/* — Given a .syo file pointer, and a logical */ 
/* address, look up the nearest syibol to that */ 
/* address. */ 

< 


lszSyabol[0] ■ '\0'; 


/* Make sure that it's a valid SYM file. Stop */ 
/* if not. */ 

if (IFReadSyaFi1eHeader(nfd, &»ap)) 
return; 

/* Position the file pointer to the right */ 

/* segaent/SEG. */ 

If (IFPositionFile(nfd, iseg, aap.cseg, 
■ap.cparSegFirst)) 
return; 

/* Extract the syabol naae. The result Is in */ 
/* "lszSyabol”. */ 

GetSyabolNaaeSzW(nfd, lszSyabol, cbOffset); 

) 

/* End of File */ 


name of the routine, and possibly the line 
of the source file. 

It accomplishes this task by reading the 
bedded in the executable file (which 
must be compiled with the symbolic 
debugging option). On the DEC VAX/VMS 
operating system, an even more sophis¬ 
ticated ACCESS VIOLATION handler is 
available. I have read with great inter¬ 
est the Matt Pietrek article on page 49 
of the July issue of W/ndows/DOS 
Developer's Journal. 

Now my question is: is it possible to 
catch the General Protection fault that 
occurs so frequently (sighl) in my Win¬ 
dows programs, and to install a routine 
that maps the selectonoffset pair in a 
symbolic name, with a symbolic stack 
trace? 

Stefano Corgnati 
Sesam SpA 
Corso Svizzera 185 
10149 Torino 
Italy 

A The short answer to your question 
is to use a post mortem analysis 
utility such as Dr. Watson from 
Microsoft or Dr. Frank from Borland. 
Both of these programs sit in the back¬ 
ground waiting for an Unrecoverable 
Application Error (UAE) (the General 
Protection violation is one such UAE) to 
occur. When one does occur, the stack 
trace is saved to a log file. The stack 
trace includes a disassembly of the in¬ 
structions around the offending instruc¬ 
tion for the topmost stack frame, and 
the instructions around the call to the 
next routine for an inner stack frame. If 
a symbol file is available in the same 
directory as the module being traced, 
symbolic information is included in the 
stack trace. 

But from your question I don't think 
the short answer is what you are look- 


number and name ing for. After all, instead of bravely mucking about inside the 
UNIX executable file format, you could have obtained a stack 
symbol table em- trace by running a debugger such as dbx against the resulting 



LANGUAGE 


-lint 


5.0 presents 
C Bug # 504 



This function is not doing what is clearly intended. Can you or your 
compiler spot the problem? Call if you need a hint. Refer to Bug #504. 


PC-lint will catch this and many other 
C bugs. Unlike your compiler, PC-lint 
looks across all modules of your 
application for bugs and inconsistencies. 

New - Optional Strong Type Checking 
and variables possibly not initialized. 

More than 330 error messages. More 
than 105 options for complete 
customization. Suppress error messages, 
locally or globally, by symbol name, by 
message number, by filename, etc. 
Check for portability problems. Alter 
size of scalars. Adjust format of error 
messages. Automatically generate ANSI 
prototypes for your K&R functions. 


Attn: Power users with huge programs. 

PC-lint 386 uses DOS Extender 
Technology to access the full storage 
and flat model speed of your 386. Now 
fully compatible with Windows 3.0 
and DOS 5.0 

PC-lint 386-$239 
PC-lint DOS -OS/2 -$139 


Mainframe & Mini Programmers 

FlexeLint. in obfuscated source 
form, is available for Unix, OS-9, 
VAX/VMS, QNX, IBM VM/MVS, etc. 
Requires only K&R C to compile but 
supports ANSI. Call for pricing. 


PA add 6% sales tax. 


©Imp®] S®ftwmr® 

3207 Hogarth Lane, Collegeville, PA 19426 

CALL TODAY (215) 584-4261 Or FAX (215) 584-4266 

30 Day Money-back Guarantee. 

PC-lint and FlexeLint are trademarks of Gimpel Software 
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Listing 9 findsym.h 


j *****************************************************/ 

/* findsym.h */ 
/* -- Interface to findsym module. */ 
y*****************************************************^ 

y*****************************************************y 
/* Prototypes. */ 
y*****************************************************y 
void FindSymbol(LPSTR, int, WORD, WORD); 

/* End of File */ 


core dump. Fortunately, it is not difficult to adapt Matt Fietrek's 
code to provide exactly the tool you want All that is missing is 
the Windows equivalent of the UNIX signal handler. This 
functionality is provided by toolhelp.dll, which comes with 
Windows 3.1. 

The toolhelp.dll routine InterruptRegister() can be used 
to provide the address of a callback function that is invoked 
whenever an exception occurs. Table 1 lists the trapped inter¬ 
rupts. If you create a DLL to call InterruptRegisterf), you 
have the added benefit of being able to produce a stack trace 
for any faulting task (unlike the UNIX signal handler, which is 
part of the application). Since a DLL is not a task itself, when 
an exception occurs the DLL's callback will be in the context 
of the faulting task. All that is required is to call Matt's 
_ w_assertfail() routine with a description of the fault and 


VISUAL PROGRAMMING PLATFORM 

• Visual programming by connecting icons 

• Select process icon from process toolbar 

• Each icon represents an application process class 

• All processes inherited from generic process class 

• Platform maintains processes connection map 

• WYSIWYG interactive dialog box generator 

• Object-oriented programming using C+ + 

• Automatic program generator produces generic 
process class 

• Application process class is independent of GUI 
platform 

• Generic process provides object persistence 

• Wide range of application: data acq. simulation,... 

VPS SOFTWARE Library Comes With: 

• No Royalties, Money-back guarantee 

• FREE Source Code, FREE Tech Support 

• Runs under MS Windows 

• Support for both Borland and Microsoft C+ + 

• Only $99 

Call today for complete information, demo or to order. 


VPS 


SOFTWARE 


P.O. Box 526, Whippany, NJ 07981 
(201) 694-2721 FAX (201) 696-3650 
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Listing 10 makefile 


####################################################### 

## makefile ## 

## -- Project file for w_assert library. ## 

####################################################### 
all: w_assert.lib 

.c.obj: 

cl -c -ASw -G2w -Od -Zdpe -W3 -DSTRICT $(DEFS) $< 

findsym.obj: findsym.c findsym.h 
w_assert.obj: w_assert.c w_assert.h findsym.h 

w_assert.lib: findsym.obj w_assert.obj 
lib w_assert -+findsym -+w_assert,, 
copy w_assert.lib c:\c\lib 
copy w_assert.h c:\c\include 

you have a small, quick replacement for one of the more 
heavyweight post mortem analyzers. 

Actually I lied a bit there. One extra thing you have to do 

to call_ w_assertfoil() from a DLL is compile it with SS ! = 

DS. An implication is that pointers to routines must be passed 
as far pointers (at least this is true with Microsoft C7.0) since 
near pointers are assumed to be relative to DS. If the object 
pointed to resides on the stack, you would end up with the 
wrong selector part of the address. But there is an advantage 
to the DLL approach as well. Since a DLL has a unique module 
handle, it can be compared with the module handle returned 
via the STACKTRACEENTRY structure provided to 
StackTraceCSIPFirstf) and StackTraceNext(). If it is the 
DLL’s module handle, then that stack frame can be skipped, 
since presumably you are not interested in seeing the DLL's 
symbols. 

According to the Microsoft documentation (Programmer’s 
Reference, Vol. 2, page 536), the callback function must be 
reentrant and page-locked in memory, and must explicitly 
preserve all register variables. In other words, it is an interrupt 
handler. Page locking can be achieved in the LibMainf) func¬ 
tion of the DLL which is called when the DLL is first loaded. 
The DLL can be unlocked in its WEP() function, called before 
the DLL is unloaded. Reentrancy can be achieved by only 
using stack variables. This eliminates the need to protect up¬ 
dates to global variables with semaphores. Preservation of 
register variables is harder to achieve, since the C prolog does 
mess with registers. Also, if the callback wants to handle the 
interrupt instead of chaining to the next handler, it must ex¬ 
ecute an iret instruction. Given these requirements, a small 
assembly wrapper is required to perform the necessary 
housekeeping before calling the C callback function. 

Listing 1 is the source code for wrapper.asm. It uses pusha 
and popa to preserve registers. I was lazy about passing the 
interrupt number to Handlelnterrupt(). Since all the 
registers were preserved anyway, it was simple just to pass it 
via DX. AX cannot be used because it will get stomped on by 
Handle Interrupt ()'s function prolog, which moves DGR0UP 
into AX (this depends on the compiler and options chosen). 

Listing 2 is onuae.c which consists of the 3 routines Lib- 
Main(), UEP(), and Handle Interrupt (). As mentioned, LibMain() 
page-locks the DLL by calling GlobalPageLockQ, and UEP() 
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Developer's 

Marketplace" 


TUB™ is FASTEST! 



RCS™ 4.2 PVCS™ TLIB™ 3.0 TUB™ 5.0 


Times are to update a 45K library on a PC/XT. PVCS and TUB 3.0 are 
from Sept 87 PC Tech Journal. MKS RCS 4.2 and TUB 5.0 are newer. 

TUB™ is BEST! 

“Do not be fooled by the fact that this is the 
least expensive of the five packages reviewed 
here - TUB has features and power to spare” 
John Rex, Computer Language 
“TUB is a great system" J. Vallino, PC Tech J 

• Full-Featured Version Control for Software 
Professionals. Check-in/out locking. Branching. 
Keywords. Wildcard and list-of-file support. Can 
merge parallel changes and undo intermediate 
revisions. Network and WORM support. Main¬ 
frame compatible deltas for Pansophic, ADR, IBM, 
etc.. Integrates with Opus" MAKE & Slick " MAKE. 

MS-DOS $139, OS/2 $195 + shipping visa/MC 
5 station LAN license $419 (OS/2 $595), call for other sizes 

BURTON SYSTEMS SOFTWARE 

PO Box 4156, Cary, NC 27519 (919)233-8128 
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Basie > C?! 


Basic is better than C when you 
use the ProBas library! Over 900 
routines, most in assembly, let you 
write fast, tight code without 
"C-headaches"! Easy to use, 30 
day money-back guarantee. For 
your FREE 20 page booklet call: 

800-447-9120 ext. 171 

TeraTech 

Dept. W171,3 Choke Cherry Rd., 
Ste. 360, Rockville MD 20850 
(301) 330-6764 Fax: 963-0436 
BBS: 963-7478 9600-N-8-1 
"A Supercharger for Basic" - BYTE 
New Visual Basic tools available! 

□ Request 101 on Reader Service Card □ 
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Fastgraph 

programmer’s graphics library 


Unlock the secrets of high- 
performance DOS graphics 
programming with the graphics 
library commercial games 
programmers have used for 
years. 

C • C++ • Pascal • BASIC • FORTRAN 

Only $169 

Call today for a free demo disk or download an 
evaluation kit from our BBS. No royalties. 
Visa, MC, COD, and purchase orders welcome. 

Ted Gruber Software 
PO Box 13408 Las Vegas, NV 89112 
Orders/Info (702) 735-1980 
FAX (702) 735-4603 • BBS (702) 796-7134 
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Visual Basic, 
BASIC, and PDS 
programmers! 

rf*#Sfraf Purpose Toolboxes 
«4ijfes 
y#48!St Design 
^•Mffnunictitions 
Trinting 

.rf idWific Applications 
40 ISfsmi more! 



Crescent Software offers many tools for 
QuickBASIC, PDS, and Visual Basic. All 
product; include complete source code, 
free technical support, and royalties are 
never required! ™ mama i ;bh*« w 


i 

CRESCENT 


CALL TOLL FREE 

1 800 35 BASIC 

CRESCENT SOFTWARE, INC. 

11 BAILEY AVENUE 
RIDGEFIELD, CT 06877-4505 
203 438 5300 FAX 203431 4626 


Windows 
Developer Jobs 

Specialists in jobs for software 
engineers in leading edge technology. 
Windows, PM, GUI, Languages, AI, 
Mac, CASE, Video, Realtime. 
Nationwide contacts with both large 
and small companies including equity 
startups. Many of our clients develop 
and publish commercial software 
products. Managed by graduate 
engineers. Never a fee to an 
applicant. 




1 - 800 - 231-5920 
Scientific Placement, Inc. 

SPI-8, Box 19949, Houston, TX 77224 (713) 496-6100 
SPI-8, Box 71, San Ramon, CA 94583 (510) 733-6168 
SPI-8, Box 4270, Johnson City, TN 37602 (615) 926-6188 
Fax: 713-496-6802 please use Fine Setting on Fax 
Email: Ascii preferred: Internet LSH@Scientific.com; 
^ompuserve: 71250,3001; Genie: D.SMALL6 J 
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Simtel MSDOS CDROM $24.95 

550 meg, 8300 programs. Programming tools, 
dos utilities, tech docs, comm, bbs, publishing, 
ham-radio, education, much more. Made June 92. 

CICA MS Windows CD $24.95 

Hundreds of MS Windows programs. Utilities, 
games, source code, programming tools. July 92. 

Source Code CDROM $39.95 

Desktop Lib CDROM $39.95 

GIFs Galore CDROM $24.95 

OS/2 Archive CDROM $24.95 

CDROM Caddies $4.95 

Walnut Creek CDROM 

1547 Palos Verdes Mall 
Suite 260 

Walnut Creek, CA 94596 

+1 800 786-9907 

+1 510 947-5996 

+1 510 947-1644 FAX - viWMC/CQD 
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Write bar Barcode Products 

Wilsoft carries a complete line of bar 
code software and hardware for your 
every need. All major bar code types 
supported. Call the most experienced 
company in the bar code field today. 
DOS and Xenix/Unix support. Por¬ 
table readers too! 

VISA/MC/AMEX/DISCOVER 
PO Box 6186 

Ft. Lauderdale, FL 33310-6186 
(305) 779-2720 
(305) 763-3096 Fax 
(800) 779-2720 Sales 
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unlocks it. LibMain() installs the interrupt wrapper wrap¬ 
per.asm, _UrapInterrupt() with NotifyRegister() and 
UEP() removes it with NotifyUnRegister(). You might be 
wondering about having any code at all in the MEP(), but 
Microsoft has fixed all known problems in version 3.1. The 
WEP is now called whenever the DLL is unloaded, and with 
the stack of the task in whose context it is executing. Handle- 
Interruptf) is just a switch statement to get a message to 

provide to_ w_assertfail(). Listing 3 is the familiar empty 

resource file, and Listing 4 the linker module definition file. 
Note that Uraplnterrupt() is exported instead of Handle- 
Interrupt () and that WEP() still requires the RESIDENTNAME 
keyword. Listing 5 is the makefile. Even though the module 
created is a DLL, the makefile explicitly creates onuae.exe so 
that it can be placed in win. ini as load=onuae.exe. Any DLL 
loaded in this manner will be resident for the entire Windows 
session. 


Listings 6 through 10 implement the modified w_assert 
library. One modification to w_assert.c worthy of mention is 
the use of the GetInstanceModule() macro found in win- 
dowsx.h. This macro makes use of an undocumented feature 
of GetModuleHandlef), which is that an instance handle can 
be passed in as the LOWORD and 0 as the HIUORD of the 
module name parameter. The instance handle is directly ob¬ 
tained from the DS register (an instance handle is the default 
data segment’s selector). 

You can find a similar implementation to the onuae DLL in 
chapter 10 of Undocumented Windows, by Schulman, Maxey, 
and Pietrek. The program, called Coroner, uses the toolhelp 
DLL to print a stack trace when a UAE occurs, but without 
symbolic names. Interestingly enough, this was also written 
by Matt Pietrek (at this rate maybe I should dedicate the 
column to himl). □ 



Developer's 

Marketplace 


2 ™ 

The Art of Visual Basic Programming ™ 

This amazing new book by J. D. Evans, Jr. unlocks 
the secrets of Windows and Visual Basic 
application design and programming. It explains 
Windows design from a unique and easy to 
understand perspective. Smart Objects, Hybrid 
Objects, Control Coupling, Events, Focus, Event 
Triggering, Visibility, Form and Module Code 
Placement, DLL Parameter Passing, Variable 
Scope, Strings, and Structures are described and 
explained. Enlightening allegories and annecdotes 
make this one of the most unusual and informative 
Windows books ever written. This book is the 
Rosetta stone for Windows and Visual Basic! 


Book: $29.95 Companion Disk: $9.95 


ETN Corporation 

RD4 Box 659 Montoursville, PA 17754-9433 
(717) 435-2202 (Sales) (717) 435-2802 (FAX) 
AMEX/MC/VISA/Check/MO/PO/COD 
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NETWORK 

CONTROL 

LIBRARIES 

NETBIOS ROUTINES allows ac¬ 
cess to low-level network func¬ 
tions. Name, session, and 
datagram routines. Wait and no¬ 
wait options. $99 

NETBIOS DLL for Windows $199 

NETWORK MASTER provides 
access to Netware internal func¬ 
tions. Complete network control 
from your compiled programs! $99 

Starlight Software 

P.O. Box 1090 
Wheeling, IL 60090 

(708) 394-0622 _ 
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COM1: - COM4; 
WITH WINDOWS! 

• 1.2, OR 4 PORT RS-232 BOARDS 

■ RS-232 AND RS-422 VERSIONS 

• WINDOWS UTILITY SOFTWARE 
PROVIDED 

■ XT ANO AT INTERRUPT JUMPEfS 

■ OTHER PRODUCTS INCLUDING 
LAPTOP ADD-ONS 

■ DELIVERY FROM STOCK 

• MADE IN USA 
« EXCELLENT TEO 


r E/fl B\fp| SEALEVEL SYSTEMS INC 

JLHLL V LL PO BOX B30 

LIBERTY. SC 29657 

( 803 ) 843-4343 
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INTERNATIONAL 
SOFTWARE 
ASSIGNMENTS 

YOUR PASSPORT TO AN 
INTERNATIONAL CAREER 

The International Computer Professional Association 
provides you with the world wide contacts you need to find an 
exciting software assignment overseas. 

Every two weeks you'll receive a detailed listing of 
current software assignments faxed directly to the ICPA by 
recruiters in London, Paris, and many other cities. Youll also 
receive valuable advice from software professionals with first- 
hand international experience. 

•Learn about exding contract and permanent positions overseas 
•Make up to $70,000 tax-free, even when working in Europe 
•Set-up an international consultancy and work throughout the world 

As a member ol ICPA you become part of a dynamic 
international network of software professionals. People with 
years of experience in the international market who will show 
you how to find an assignment overseas. 

To find out more about how to Join the ICPA 

Call (415) 695 7618 
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^ WindowsCreator ”^ 

anniversary price f*$85 

'•■create WINDOWS interactively 
'•'no need to write any code 
«"You PAINT the application,not write!!! 
‘••object-oriented programming using 
standard C-language 
‘•■Generated C-code or Smalltalk code 
in seconds!) 

‘^ Dialog, window, menu, cursor 

icon, color, brush and attrib. 

editors included. 

■»■ interactive functionality linking 
‘•‘application code is separated from 
interface code. Few code lines connect 
application to WINDOWS 3.x interface 

AdamSoft 

13 rue de Crecy,L-1364 Luxembourg 
Fax:+352-494768. VISA accepted 
p&p Europe $10, elsewhere $20 
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GT TCP/IP 

programmers! 

GENISYS Comm Pack++ 

GCP++ is 100% C++ DLL, providing 
a middleware API for encapsulated 
TCP/UD P/Tel net access, buffer, file, 
and packetized voice. 

>- Eliminate socket library learning 
curve 

>- Speed development & debugging 
> WinSock standard provides portability 
>- No Royalties! 

We do custom Windows & 
voice/data networking applications! 

GENISYS Comm, Inc. 

314 South Jay Street, Rome, NY 13440 

_ (315) 339-5502 _ 
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SmartHcap professional memory man¬ 
agement library and debugging toolkit (for¬ 
merly OptiMem from Applegate Software) 
is the only tool avail, w/ both fast, optimum 
mem mgmt and comprehensive error de¬ 
tection. Combination of variable and fixed- 
sizeallocators maximizes both performance 
and flexibility. Incl ANSI C"malioc"and C++ 
'new/ + many other APIs. Fixes selector 
consumption, overhead, granularity, frag¬ 
mentation, and DGROUP depletion. Mini¬ 
mizes disk thrashing by localizing data struc¬ 
tures in their own heaps. Uses just 12K at 
runtime. Detects double-freeing, mem over¬ 
writes, leakage, invalid parameters, wild 
pointers, etc. Programmatic error handling 
and heap-walking. Works w/ EXEs, DLLs, & 
device drivers. Bullet-proof reliability, 
"Who’s who” user base. 166 page manual. 
No royalties. Source available. $395 
CALL FOR FREE WHITE PAPER! 

800-441-7822 
FAX 206-525-8309 

MicroQuill 

Software Publishing, Inc. 
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Fastest, most 
powerful text retrieval 
technology available 

• Search 100 MB in < 3 seconds 

• Up to 50 million documents, 2 GB total 
text per index 

• Powerful searches: word, phrase, proximity, 
Boolean, wildcards, and more 

• Supports MS Word, WordPerfect, AmiPro, 
dBase, ASCII, others 

Windows and DOS Libraries $3,995 
Call for specs and demo. 
800-544-6339 

ZyLAB 

100 Lexington Drive • Buffalo Grove, IL 60089 
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$79 DATA ACQUISITION FOR PCs 

■ 24 LINES OF PROGRAMMABLE DIGITAL INPUT/OUTPUT 

■ 3 CHANNEL 8 BIT A/D CONVERTER 

■ 12 BIT COUNTER 

■ PLUGS INTO PC BUS AND INCLUDES MANUAL AND 
FLOPPY 

$149 TRUE RMS DMM W/RS232 

■ MEASURES AC/DC VOLTS, CURRENT, OHMS, 
FREQUENCY 

■ OPTO-ISOLATED SERIAL PORT WITH CABLE FOR PC 

■ 20 AMP CURRENT RANGE, 30-40KHZ FREQUENCY 

■ INCLUDES CABLE AND DATA-LOGGING SOFTWARE 

$239 A/D CONVERTER W/RS232 

■ 18 BIT 5.5 DIGIT RESOLUTION (1 IN 200,000 COUNTS) 

■ ADDRESSABLE, CONNECT UP TO 32 ON 1 RS232 PORT 

■ VIRTUAL INSTRUMENT SOFTWARE & CABLE INCLUDED 


PRAIRIE DIGITAL INC. 

846 17TN STR INDUST PARK 
PRARIE DU SAC, Wl. 53578 


MAIL, FAX, OR PHONE 
VISA, MC, CHECK, MO, 
OR PO ACCEPTED 


TEL 608-643-8598 INCLUDE $8 FOR S&H 

FAX 608-643-6754 
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ADVANCED 

DATABASE ENGINE DLL 

Add advanced database management capabilities to 
your programs with simple function calls. Andsor 
Database Engine for Windows is a DLL you can use 
from C, Visual Basic, and many other languages 
and front-ends. 

• Functions range from simple ISAM file 
operations to full database management. 

• Makes your Windows programs smaller and 
simpler by replacing large sections of code with 
short procedures you create, test, and store in the 
database itself. 

• Ideal for business applications. 

1-800-766-1141 

$ 149 1 20-day money-back guarantee 

Andsor Research Inc. 

390 Bay St., Suite 2000 
Toronto, Ontario, Canada M5H 2Y2 

(416)245-8073 Fax (416)240-8473 


32-bit Protected Mode 
386 C Graphics Library 

Intel 386/486 C Code Builder 
MetaWare, MicroWay, SVS, 
Watcom & Zortech with 
Phar Lap 3861 ASM 

Mixed Raster/Vector, 
Scalable, Rotatable Font, 
VGA, SVGA, 8514/A, VESA, 
Hercules Graphics Station 
through 1024x768x256 (8-bit), 
640x480x32k (16-bit), 
512x480x16.7m (32-bit), 
WYSIWYG HP-GL/PostScript 
$200 NO ROYALTIES 
FULL SOURCE CODE 
Gary R. Olhoeft 
P.O. Box 10870 Edgemont 
Golden, CO 80401-0620 
303-877-3697 CIS 76665,2021 
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Does your company provide 
tools, products, or services 
for advanced Windows 
programmers? 

Then reach over 27,000 
serious programmers in: 

WindowsYPOS 

□ DEVELOPER’S JOURNAL 

Call 913-841-1631 today for 
information about advertising 
opportunities in Windows/DOS 
Developer’s Journal. 

Advanced. Serious. 
Technical. 

Ed - East Donna - Midwaat Edwin ■ West 
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C and C++ DOCUMENTATION 


! AUTOMATED DOCUMENTATION ! 

• C-CALL ($69) Graphic-tree of caller/called 
functions, cross-ref, file/function index. 

• C-CMT ($69) Creates/inserts/updates 
comment-blocks for each function, listing 
the functions and identifiers used by it. 

• C-METRIC ($59)Counts path complexity, 
counts comments, code, 'C' statements. 

• C-LIST ($69) Lists and action-diagrams, 
or reformats into standard formats. 

• C-REF ($59) Creates cross-reference of 
local/global/define/parameter identifiers. 

• SPECIAL : C-DOC ($199) All 5 programs 
integrated as DOS program (<15,000 lines) 

• NEW! C-DOC Professional ($299) 

DOS, OS/2, Windows. 3-ring binder/case. 
Processes 150,000 lines, deterred reports. 

• 30-DAY Money-back guarantee CALL NOW 


SOFTWARE BLACKSMITHS INC. 

6064 St Ives Way, Mississauga 

ONT, Canada Voice/Fax (4161-858-4466 

L5N-4M1 Demos/BBS (416)-858-1916 
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VB Code without 

THE COMPROMISE 

If you're tired of 

VB Compress* rewards 

having to choose 

good programming practice: 

between VB code 

Write code the way you should 

that is readable 

with plenty of white space, 

and EXEs that are 

comments, and descriptive names. 

the smallest and 

Manage code the way you want 

fastest they can be, 

with standard global files and 

then you need... 

libraries of standard routines. 

r VB. 

F : orget about that “code save/ 
code load” nonsense. 

Create VB EXE files that are 

Compress 

It lets you 
have it 

smaller and load faster without 
spending hours "optimizing" 
your code. 

Just *49.95 plus $5. s&h. 

For orders or information call: 

both 

TAILORED PCs 

ways! 

1-800-241-8727 
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d4alias_set 

d4append 

ddappendblank 

d4append_start 

ddblank 

d4bof 

d 4 bottom 

d4check 

ddclose 

d4close_all 

d 4 ere ate 

d4delete 

d4deleted 

d4eof 

d4field number 
d4flush all 
d4flush recor 


d4free_blocks 

d4go 

d4go_eof 

d41ock 

d41ock_append 

d4iock_tile 

d41ock_group 

d4!ock_index 

d41ock_test 

d4lock_test_append 

d4Iock_test_file 

d4rnemo_compress 

d4num_fields 

d4open 

d4gack 

d4gosltlon 

4positionset 



d4recall 
d4reccount 
d4recno 
d4record_widtl 
d4reindex 
d4seek 
d4seek_doubli 
d4sklp 
d4tag_select 
d4top 

d4unlock_all 
d4unlock_appc 
d4unlock_file 
d4unlock_inde 
d4unlock_reco 
d4update_heai 
d4write 
d4zap 


Field Functions 


Database : 


Field to View: 


O void f4assigi 


CUSTOMER 


Done 


NAME 


BIRTH_DATE 

COMPANY 


Change Database 


FISCHER ANDY 


_PHONE 

SEX 

O void f4blankn 
O int f4char( ] 

O int f4decimals() 
O double f4double() 
O int f4int() 
o unsigned f4len( j 
O long f4long( ] 


"TTctTar *f4 n a m e (] 
® char *f4str() 

O int f4true() 

O int f4type( ] 

Return Value : 



• Multi-user 

• DOS, Unix, OS/2 Support 

• C++ Interface Included 


Complete DBMS for C, C++ and VB 
programmers - compatible with the data, 
index and memo files of dBASE III/IV, 
FoxPro 2 and Clipper. Try the super-fast, 
super-small FoxPro 2.0 CDX index files! 


Windows 3 Data Entry 
Clipper -> C Translator Available 



DATA BASED 

AHPyiEdM 



(Using Visual Basic? Try CodeBasic!) 



The C Library for DataBase Management 
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New BOUNDS-CHECKER 2.0 



Welcome to the age of 
automated memory/heap protection! 

NEW BOUNDS-CHECKER 2.0 is the only complete solution to MS-DOS 
memory and heap corruption problems. 

BOUND-CHECKER 2.0 is a single, easy to use utility that automatically 
detects problems in your programs heap, stack or data segment and 
finds illegal memory accesses outside of your program or in your code. 
In one step, you can quickly and easily flush out some of the most 
insidious bugs that you regularly encounter as a DOS programmer. 


• New 2.0 Features • 

• Now works with 3rd party memory managers 

• Heap, stack and data segment checking 

• Smart Mode decides the legitimacy of an access automatically 

• No need to see assembly code - call stack lets you view source 
of calling routines. 

• New Auto Log mode (BC doesn't pop up) 

• Supports C7.0 & Borland 3.1 & VROOM 

Order NOW! Only $199 


Using BOUNDS-CHECKER 2.0 is simple, there are no changes to be made 
to your source in any way, and no linking of code or macros into your 
executable. When a bug is found, BOUNDS-CHECKER pops up showing 
you precisely where the problem is. 

One of its innovative NEW features is Smart Mode. Smart Mode uses a 
built-in knowledge base to automatically determine if an out-of-bounds 
access is legitimate. This eliminates any complex decisions on your part, 
resulting in more power and flexibility than you may have thought 
possible. 

Don't take unnecessary risks with your program or your customers. 
BOUNDS-CHECK before you ship with NEW version 2.0. 


For even more debugging power, BOUNDS-CHECKER 2.0 
integrates with our award-winning Soft-ICE debugger which fea¬ 
tures powerful 386/486 based breakpoints. Equipped with this 
formidable combination, your de-bugging arsenal is prepared for 
any surprise attack of the DOS Nasties. 

Soft-ICE...$386 

BOUNDS-CHECKER 2.0 & Soft-ICE Bundle Only...$499 

BOUNDS-CHECKER AND SOFT-ICE ARE TRADEMARKS OF NU-MEGA TECHNOLOGIES. INC. 


We're making C a Safe Language! 


Call (603) 889-2386 
fax (603) 889-1135 
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M 
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H 

RISK = NULL 

30 DAY 

MONEY-BACK GUARANTEE 

P.O. Box 7780 

Nashua. NH 03060-7780 U.S.A. 

TECHNOLOGIES INC 

24 HOUR BBS 
603-595-0386 
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